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