my @fields = split " ", $line, 6;
print join("|", @fields);