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

use strict;

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

my @array;

while (<FILEHANDLE>)
{
chomp;

@array = ();
@array = split(/\s+/);

if (defined($array[13]) && defined($array[14])) {
  print STDOUT "$array[13]\t$array[14]\n";
  print OUTFILE "$array[13]\t$array[14]\n";
}