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

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