print $out_fh $_ =~ tr/\t/\t/rs;