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