perl -pe'eof||<>'