Select Code to Download

#!perl -i.bak

$toggle = 0;
...

print "\n" if $toggle;    # if the last line was chomped

#!perl -pi.bak

BEGIN { $toggle = 0; }
...
chomp if $toggle ^= 1;

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