Select Code to Download

use warnings;
use strict;
...

$str =~ s{ \s* ([&|]) \s* }{\n$1\n}xmsg;
print qq{[[$str]]};

c:\@Work\Perl\monks\ravi45722>perl xform_str_1.pl
running under Perl version: 5.008009
...
|
must-column9:No_error
]]