This works:

#!/usr/bin/perl -w

use strict;

my $line = "test1 22/11/1999     64    47  6%   263 38%
        24 38%    47 73%    61 95%    63 98%";

my @stuff = split('\s+',$line);
my $test1 = join("|",$stuff[0],$stuff[1],$stuff[5]);
print "$test1\n";
[download]

J. J. Horner
Linux, Perl, Apache, Stronghold, Unix
jhorner@knoxlug.org http://www.knoxlug.org/