#!/usr/bin/perl
use strict;
my $seq = "ANANNNNANANANANANANANANANANA";
if ($seq=~/[AN]{10,11}?/) {
  print "I matched\n";
}
else {
  print "I did not match!\n";
}

__OUTPUT__
I matched