sub Replace {
      my $word = shift;
      ...
  }