Select Code to Download

for my $line (@lines)
{
...

    print $line;
}

for my $replace (@replaces)
{
...
}

print @lines;