use strict;
use warnings;

my @strings = qw(aalglatt Saarland11);

for my $string (@strings) {
    if ($string =~ /aa|bb|cc/ and $string !~ /11|22|33/) {
        print "OK: $string\n";
    }
}