Select Code to Download

while (<>)
{
    # edit line if needed.
    print $_;
}

my $line = 0;
while (<>)
...
    s/XXXX/YYYY if ($line == 3);  # change third line
    print $_;
}