local $/ = "|"; while (<>) { print; print "\n" unless $. % 3; }