Select Code to Download

$delim = 'A -3 C -4 B';
$array = 
...
# the first alphabet  ( asterisks *)  is  actually 
# a repeat of the last alphabet ( plus +) 
# from the previous element.

my $delim       = 'A -3 C -4 B';
my $delim_reg   = ['A -3 C','C -4 B'];

my $delim_reg   = ['A -3 C','C -4 B'];

...
    |\_____i_______/  \_______________j__________________/ |--> Inst 6
    |______________________________________________________|

my $VAR =  [ 

...
[['A -1 C'], ['C -4 D', 'D -4 B','B -3 C','C -2 B']],          # Ins6

]

use Data::Dumper;
my $delim   = 'A -3 C -4 B';
...

    [$_[0] =~ /(?=([a-z]\s*(?:\S+\s*){2}))\S+\s*/gi ]
}