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