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