Not much different, but...

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

(mandatory CYA: might also not hurt to use 1 while unlink $_)