foreach (@files) { unlink $_ if (/se\d{4}ab/i && -x) }