in reply to Re^2: Delete files matching pattern
in thread Delete files matching pattern

You're not far off, actually:

foreach (@files) { unlink $_ if (/se\d{4}ab/i && -x) }
would work if @files contains the list of all the files you want to check. A quick note -- others picked up on it in code, but didn't mention explicitly -- the i at the end of the regex will match in a case-insensitive manner, which is faster than invoking the lc() on each potential filename as you do in your original code.

The Eightfold Path: 'use warnings;', 'use strict;', 'use diagnostics;', perltidy, CGI or CGI::Simple, try the CPAN first, big modules and small scripts, test first.