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