use Data::Dump qw/ dd /;
dd( split /\D/, q/12Q34/ );
dd( split /\D/, q/12ab34/ );
dd( split /(\D)/, q/12ab34/ );
__END__
(12, 34)
(12, "", 34)
(12, "a", "", "b", 34)