Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'foo\bar\[baz[x]x{x}x~x*x?x[]{}~*?';
...
"
'foo\bar\[baz[x]x{x}x~x*x?x[]{}~*?'
'foo\bar\\[baz\[x\]x\{x\}x\~x\*x\?x\[\]\{\}\~\*\?'