perl 正则表达式 my $a = "abc123xyz"; my $tmp = "123"; if ($a /abc