perl 贪婪匹配小例子

redis01:/root# cat x2.pl 
my $str="a19823a456123";
if ($str =~/a(.*)23/){print "1----".$1."
";};
if ($str =~/a(.*?)23/){print "2----".$1."
";};
redis01:/root# perl x2.pl 
1----19823a4561
2----198