$field3=join("\t",@data[7,8,9,10,11])

##</code><code>##

#!/usr/bin/perl<br>
$file = "fielded.txt";
open IN, "<", $file  or die "Unable to open $file: $!";

while($line=<IN>)
{
   @data=split(/\t/,$line);
   if ($data[2] eq "u")
   {$field1=$data[3]; print "\n$field1";}
   if ($data[2] eq "p")
   {$field2=$data[3]; print "$field2\n";}
}
close IN;