my @info = split(/\|/,$line);
print $info[0], " -> ",$info[4],"\n";
#etc...