sub replace{

  my $chosen=shift;
  $chosen= 'none' unless defined $chosen;
      
  print "\nThe selected word:";
  print "\n$chosen";
}
1;

##</code><code>##

The selected word:
none