Select Code to Download

while (my $line = <$infile>){
    if ($line =~ s/T/TT/g){
...
    print $new_file $line;
}
# overwrite old file with new file here