use strict;
my $line= 'AAALVDENEC';
while( $line =~ /\G.*?(AA|AL|DA|DE|DV|VD|DW|QD|SD|HD|ED|DY|VE|EN|EI|KE|NV|VP|FV|SS|WK|KK)/igc ) {
    print sprintf 'Matched [%s] at %d', $1, pos($line);
    pos( $line )--;
}