#!/usr/bin/env perl

use 5.014;
use warnings;
use autodie;

my $infile = 'pm_11140114_tab_align_even.dat';
my $outfile = 'pm_11140114_tab_align_even.out';

{
    open my $in_fh, '<', $infile;
    open my $out_fh, '>', $outfile;

    while (<$in_fh>) {
        print $out_fh $_ =~ y/\t/\t/rs;
    }
}