use warnings;
use strict;

print qq{running under Perl version: $] \n\n};

my $str = <<EO_STR;
must-column08:Submit & must-column10:Delivered
must-column08:Submit & must-column10:Delivered One & must-column9:No_error
must-column08:See Here & must-column10:Delivered | must-column9:No_error
EO_STR

print qq{<<$str>>};
print qq{\n\n};

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