#!/usr/bin/perl

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

use strict;

my @dipeptides = split /\|/,
  'AA|AL|DA|DE|DV|VD|DW|QD|SD|HD|ED|DY|VE|EN|EI|KE|NV|VP|FV|SS|WK|KK';

for my $line ( 'AAALVDENEC', 'AATLVDEGDG' )
  {
  my $sum = grep $line =~ $_, @dipeptides;
  my $abs = @dipeptides - $sum;
  print "$line sum: $sum  abs: $abs\n";
  }