#!/usr/local/bin/perl -i

while (<>) {
        s/[ \t]+/ /g;
        tr/A-Z/a-z/;
        print;
}
