while (<$dict_fh>) {
    $_ = lc($_);
    tr/a-z//cd;
    # ...
}

##</code><code>##

penisland
howareyou

##</code><code>##

pen island
penis land
pen is land
penis l land
pen is l and