Help for this page

Select Code to Download

Select or download this
```
$field3=join("\t",@data[7,8,9,10,11])
```

Select or download this

#!/usr/bin/perl<br>
$file = "fielded.txt";
...
   {$field2=$data[3]; print "$field2\n";}
}
close IN;