Help for this page
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 ]]