Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl>perl -wMstrict -le
"my $s = join '^', map qq{\"$_\"}, 'foo bar', 'baz boff';
 print qq{:$s:};
"
:"foo bar"^"baz boff":