Deletes files in a specified directory (and its subdirectories) that don't have a file extension

delete-files.pl

#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

my $dir = "/path/to/directory"; # specify directory path here

find(\&process_file, $dir);

sub process_file {
    if (-f && !/\.[^.]+$/) {
        print "Do you want to delete file: $File::Find::name? [y/n] ";
        my $response = <STDIN>;
        chomp $response;
        if ($response =~ /^[yY]/) {
            print "Deleting file: $File::Find::name\n";
            unlink $_;
        }
    }
}