opendir(DIRHANDLE, ".") or die "Cannot opendir: $!";
foreach $fname (readdir(DIRHANDLE)) 
{
   if ((-f $fname) && (lc($fname) =~ m/se\d{4}ab/)) 
   {
      unlink $fname;
   }
}
closedir(DIRHANDLE);