in reply to Delete files matching pattern

A little shorter:

-f and /se\d{4}ab/i and unlink for glob("*");

[download]

In Section Seekers of Perl Wisdom