#!/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;
    }
}

##</code><code>##

foo     bar             baz     booz            qaaz                    abc
foo             bar     baz             booz    qaaz    abc     123
foo             bar             baz             booz    qaaz            abc

##</code><code>##

foo     bar     baz     booz    qaaz    abc
foo     bar     baz     booz    qaaz    abc     123
foo     bar     baz     booz    qaaz    abc

##</code><code>##

        y/\t/\t/s;
        print $out_fh $_;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

foo             bar             baz             booz            qaaz            abc
foo             bar             baz             booz            qaaz            abc             123
foo             bar             baz             booz            qaaz            abc

##</code><code>##

        y/\t/\t/s;
        s/\t/\t\t/g;
        print $out_fh $_;