my %s;
while(<FILE>) {
    s/\s+//g;
    $s{$_}++;
}