... = split(m#\|# => $_, -1);

##</code><code>##

     ... = split(m#\|#);

##</code><code>##

    print THIRD $_->[0],$id,"|",$key,"|",$cols[0],"|",$_->[0],"\n";