my $str="axx12yya"; if($str=~m/12(?<=a.*)/) { print "match \n"; }