#!/usr/bin/perl

# http://perlmonks.org/?node_id=1124725

use Data::Dump qw(pp);
use strict;
$| = 1;
my %answer;

for my $line ( 'AAALVDENEC', 'AATLVDEGDG' )
  {
  $answer{$line}{$_}++ for $line =~
    /(?=(AA|AL|DA|DE|DV|VD|DW|QD|SD|HD|ED|DY|VE|EN|EI|KE|NV|VP|FV|SS|WK|KK))/g;
  }

pp \%answer;