sub modify_string {
  $_[0] =~ s/u/i/;
  return $_[0];
}