#!/usr/bin/perl -- -l -w
use strict;

my @mylist = qw(a b k aa bab kick joke aaaaaaa babab kickker);
my @ignore = qw(a.*a.*a.*a b.*b.*b k.*k.*k);

print(join(' ', @mylist), "\n");    # Display, space-seperated

foreach my $toignore (@ignore) {
    @mylist = grep(!/$toignore/i, @mylist);
}

print(join(' ', @mylist), "\n");    # Display, space-seperated