shell> perl -MO=Deparse -
sub m{
 local *_=\$_[0];
 s///;
}
 m("String");

sub m {
    local *_ = \$_[0];
    s///;
}
/"String"/;
- syntax OK