foreach ( glob("./*se*ab*") ) {
  unlink $_ if (-f $_ && /se\d{4}ab/);
}