Select Code to Download

        @matches = ($input =~ m/
                                (.{1}?)
...
                                    $chars{$^N}++; 
                                  })
                               /xg);

map {$wordCharCount{$_}++} (split(//,$word));

use strict;
use warnings;
...
        $boolean=1;
    }
}

C:\chas_sandbox>lbu.pl WORDS.KNU
e
...
spoke
spoken
spore