while ( <$IN> ) {
    print $LOG $_
        if ( s/t/tt/ig );
    print $OUT $_;
}