>perl -wMstrict -le
"my $s = 'abcxyzdef';
 my $exclude = qr{ xyz }xms;
 my @matches = split m{ $exclude }xms, $s;
 print qq{@matches};
"
abc def