sub foo {
  my $str=shift;
  $str=~s/.../.../g;
}