Select Code to Download

use strict;
my $word = shift @ARGV || "SPACE";
...
    $word = $t . $word;
    print $word, "\n";
}

$temp = chop($word) . $temp, print "$temp$word\n" while $word;

# $temp and $word should, of course, be initialized.