my @list = split $/, <<'END_OF_LIST';
£$%^&*(
£@£@$@^&*£&*@'
"$@':><
;,. . ..^/
END_OF_LIST

print join"-|-", @list;