Select Code to Download

@arr = split /\n/, $line;
map {s/^\n+//;} @arr;
$"="\n";
print "@arr"

while ($line = <FILE>)
{
$line =~ s/^\n+//;
}