#!/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";