my (@field_data);
     for (my $i = 0; $i < $#file_format; $i++)
     {
           $field_data[$i] = substr($_,
                                    $file_format[$i],
                                    $file_format[$i+1]-
                                    $file_format[$i]);
           # Clean up as required, by trimming
           $field_data[$i] =~ s/\s+$//;
     }
     print OUT_FILE join('|', @field_data);