perl -ne "/./&&print"