perl -i.bak -ne "chomp, print if /./" filename