use warnings;
use strict;

my @emptyfiles = grep { /\d/ } grep { -f } glob '*';

##</code><code>##

my @emptyfiles = grep { /^\d+$/ } grep { -f } glob '*';