#! /usr/local/bin/perl -w

use strict;

open (FILEHANDLE, $ARGV[0]) or die "unable to open file";
open (OUTFILE, ">$$.output");

my $line;
my @array;

while (<FILEHANDLE>)
{
$line = $_;
chomp ($line);

@array = ();
@array = split (/\s+/, $line);

print STDOUT "$array[13]\t$array[14]\n";
print OUTFILE "$array[13]\t$array[14]\n";
}

close FILEHANDLE;
close OUTFILE;

exit;