#!perl -pi.bak

BEGIN { $toggle = 0; }

chomp if $toggle ^= 1;

END { print "\n" if $toggle; }