Select Code to Download

#!/usr/bin/perl -w
#
...
    # test + print
    print "Word: $word + $text\n" if ( lc( $word ) eq lc( $text ) );
}

skx@desktop:~$ perl pal.pl /usr/share/dict/words
Word: Anna + annA
...
Word: redder + redder
Word: refer + refer