c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $s = qq{\|};
 print qq{:$s:};
 ;;
 my $t = qq{\\|};
 print qq{:$t:};
"
:|:
:\|: