print $out_fh $_ =~ y/\t/\t/rs =~ s/\t/\t\t/gr;