Select Code to Download

#!/usr/bin/perl
use warnings;
...
    print $_, "\t" x $tab_counts[$i++] for /\S+/g;
    print "\n";
}