sub replace { 
    $_[0] =~ tr/#/*/; 
    return $_[0]; 
  }