TIMTOWTDI ;-)

use Inline AWK;

awk();

__END__
__AWK__

{
    print $13 "\t" $14;
}
[download]

Just thought I'd include this because it's what awk is good at doing - munging space-delimited fields.
For more info on our beloved perl's predecessor check out Effective AWK Programming online.
HTH

broquaint