16:41 >perl -Mstrict -wE "my @recs = (1, 'a', 2, 'z'); print STDOUT join('|', @recs), qq[\n];"
1|a|2|z

16:44 >