I realize that local( $/, *INPUT ); gets rid of the new lines.

It doesn't actually. You end up with a scalar that still has a newline at the end of each line of text. You can, of course, use that to your advantage.

my @lines = split /\n/, $input;
[download]