Code:
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: