well here's a possible solution for the output side... note the lack of an "escape", works with one too.

#!/usr/bin/perl
use strict;

my $a="foo";
my $b="bar";

print join("|",$a,$b);
[download]

produces..

foo|bar
[download]