my $pattern = qr{se\d{4}ab}i;

opendir(DIRHANDLE, ".") or die "Cannot opendir: $!";

my @files = grep { -e and /$pattern/ } readdir DIRHANDLE;

unlink for @files;