c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump qw(dd);
 ;;
 my $s = 'aBcDeFg';
 ;;
 my @captures = $s =~ m{ (B) | (D) | (F) }xmsg;
 dd \@captures;
"
["B", undef, undef, undef, "D", undef, undef, undef, "F"]