while (<$fh>) { ##

##

    s/\s+/ /g;

##

##

    s/$\s//;

##

##

    print lc;
}

##

##

my $linecount = $. ;