#!/usr/bin/perl
#@(#)finder $ Version: 1.1 November 2006 JR_Ferguson $
#@(#)finder $ Find files and directories by name case-insensitively $

use strict;
use warnings;
use Cwd;
use File::Basename;
use File::Find ( );
use vars qw( *name );

die "Usage: " . basename($0) . " [directory ...] regex\n" .
    "  e.g. " . basename($0) . " /var/tmp 'Perl.+5.+\\.depot'\n" unless @ARGV;

my  $regex = pop;
    @ARGV  = cwd unless @ARGV;
    *name  = *File::Find::name;

sub wanted {
    return unless m/$regex/is;
    print  "$name\n";
}

File::Find::find( \&wanted, @ARGV );

1;
#_(jrferguson).