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