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

Modification of a read-only value attempted at pmsopw_250834.pl line 3.