my $line  = 'ABCABCABCABC';
my $limit = 4;
my $base = 'A';

if ($line =~ /^[^$base]*($base[^$base]*){$limit}$/) {
    print "Wow\n";
}
else {
    print "Doh!\n";
}
[download]