Help for this page

Select Code to Download


  1. or download this
    die <<HELP unless @ARGV == 2;
usage: transform.pl <word1> <word2>
...

my $left  =  shift(@ARGV) || 'love';
my $right =  shift(@ARGV) || 'shit';
  2. or download this
    
for ($left, $right) {
    $_ = lc;
    tr/A-Za-z//cd;
}