#!/usr/bin/perl --
use Cwd;
use File::Find::Rule;
my @dirs = ( cwd() );
my @textfiles = find( 'file', 'name', qr/\.txt$/i, 'maxdepth', 1, 'in', \@dirs );