$str="abc123abcc12c34";
$str =~ /a.*(?<!\d)c/; # abc123abcc print "$&\n";
(?<=\d)逆序环视不一定都是这个 还可以(?<!\d)这样，否定 =\d，也可以！
