sub m{
 $_[0]=~s///;
}
m("String");

##</code><code>##

*_=\"Hello";
s///;

##</code><code>##

sub m{
 local *_=\$_[0];
 s///;
}
 m("String");