Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
{
    print  $line . "\n";
}

for my $line (split /\r\n?|\n/, $file_content)
{
    print $line . "\n";
}