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

The program finds a way from one word to other, like this:

% transform.pl love shit
love-lose-lost-loot-soot-shot-shit
HELP

my $left  =  shift(@ARGV) || 'love';
my $right =  shift(@ARGV) || 'shit';