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