perl -ne "print if/./"