Use something like:

print join ("|", $name1, $name2);
[download]