my $data = 'aa12ab123ac34ad23ae321ca21cb234za123zb12zd12' my @values1 = split(/(\d+)/, $data); my @values2 = split(/(\d+)/, $data); for (my $i=0; $i < @values1; $i++) { if ($values1[$i] eq "aa"){ if ($values2[$i+1] == 0){ print "Yay\n";
Leave a comment: