opendir( CUR, "somedir" ) or die "Can't opendir: $!\n";
my @digit_files = grep /^\d{3}/, readdir( CUR );

closedir( CUR );

foreach( @digit_files ) {
  unlink "somedir/$_" or warn "Can't unlink somedir/$_: $!\n";
}