Select Code to Download

use v5.10;
use strict;
...
    print keys %+, " => ", values %+, " at pos ", pos($str), " \n";
}

_2 => CACC at pos 13 
_3 => DASS at pos 48 
_1 => BACA at pos 53