use strict;
my @outputs;

while (<DATA>) {
    my @fields = split;
    $outputs[$_] .= $fields[$_] . '|' for 0 .. 3;
}
chop @outputs;   # remove final '|';
print "$_\n" for ( @outputs );

__DATA__
ID1 > 66
ID2 between 6 10
ID3 < 7