#!/usr/bin/perl
use strict;

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

print join("|",$a,$b);


##</code><code>##


foo|bar