#!/usr/bin/perl
 
{
   my @words = qw( perl monk vroom );
   my %convert = (
      i => '!', e => '#', s => '%', o => ')',
   );
 
   sub generate_password
   {
      my $word = $words[rand @words] . $words[rand @words];
      $word =~ s/(.)/$convert{$1} || $1/eg;
      $word;
   }
}
 
print generate_password(), $/;