Select Code to Download

#!/usr/bin/perl

...
use warnings;

chomp( my @input = <> );

chomp( my @input = split(/^/m, $input) );