Select Code to Download

use strict;
my $line= 'AAALVDENEC';
...
    print sprintf 'Matched [%s] at %d', $1, pos($line);
    pos( $line )--;
}