perl -ne'$$_||=print'