#!/usr/bin/perl -l

use strict;
use warnings;
use autodie;

my $dir = '.';

opendir(my $dh, $dir);
my @emptyfiles = grep { -f && /^\d+$/ && -z } readdir $dh;
closedir $dh;

print for @emptyfiles;