text normalization and token splitting

gistfile1.pl

#!/usr/bin/perl

use v5.14;
use warnings;
use utf8::all;
use List::Util qw( reduce );
use List::MoreUtils qw( uniq any );
use Path::Class::Rule;
use File::Slurp qw( read_file );

...

    my $content = read_file($fname);
    $content =~ tr/!"#$%&'()*+,\-.\/:;<=>?@\[\\]^_`{|}~/ /;

    my @parts = split /\s+/, $content;
    @parts = grep { $_ ne q{} } @parts;
    @parts = grep { length $_ > 1 } @parts;

    my @words = uniq @parts;

    my $longest_string = reduce { length $a > length $b ? $a : $b } @words;
    my $shortest_string = reduce { length $a < length $b ? $a : $b } @words;

    foreach my $word (@words) {
        my $key = lc substr $word, 0, 1;

        if (any {$word eq $_} keys %{ $pattern_list->{$key} } ) {
            #do collection here
        }
    }

...