Mój Perlik

#!/usr/bin/perl
open(FILE, "f.txt");
%tab;
while (<FILE>) {
    $_ =~ s/\(.*\)/\L\1/;
    $_ =~ s/,//g;
    $_ =~ s/\.//g;
    $_ =~ s/\(//g;
    $_ =~ s/\)//g;
    $_ =~ s/\"//g;
    $_ =~ s/\'//g;
    $_ =~ s/\?//g;
    $_ =~ s/!//g;
    $_ =~ s/-//g;
    @tmp = split(' ', $_);
    foreach $x (@tmp) {
        if ($tab{$x}) {
            $tab{$x}++;
        }
        else {
            $tab{$x}=1;
        }
    }
}
foreach $x (sort { ($tab{$a} <=> $tab{$b}) || ($a cmp $b) } keys %tab)
{
    print "$x => $tab{$x}\n";
}
close FILE;