if you want to count and calculate frquencies for the 10 characters after matches i'd sugest you make a hash, and populate it dynamically, with some:

if ($1) {
        say "\t Next 10 char after the match: $1";
        $hash{$1}++;
    next;
    }
[download]

just a slight modification... ;)

update: Corrected typo pointed out by roboticus. Thanks ;)