If you use the /g modifier, you won't have infinite loops.

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