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