#!/usr/bin/perl

use warnings;
use strict;

open INFILE, "< $ARGV[0]"
  or die "Could not open file $ARGV[0]: $!";

until(eof INFILE) {

    my $fn = $ARGV[0];

    open OUTFILE, "> $fn.filtered"
        or die "Could not open file $fn.filtered $!";

    while(<INFILE>) {

        my @line = split /\t/;

        $line[0] =~ s/(.{1,6}).*/$1/;
        $line[3] =~ s/(.{1,6}).*/$1/;
        $line[6] = $line[6]."\n";

        $_ = join("\t", $line[0], $line[1], $line[2], $line[3], $line[4], $line[5], $line[6]);

        print OUTFILE;

    }


}