#!/usr/bin/perl -w

# txtsearch.pl - by dual
#
# Recursively searches for a given regex
########################################

use strict;
use File::Find;

# Get directory and regex or provide assistance
print "usage: perl txtsearch.pl <dir> <regex>\n" and exit
	unless defined(my $dir = shift) and defined(my $reg = shift);

# Call search for each file
find(\&search, $dir);

# Look for given text
sub search {
	# Skip directories
	if ( !(-d) ) {
		open my $file, '<', $_;
		while (<$file>) {
			if (/($reg)/) {
				print "success: $1 in $File::Find::name\n";
			}
		}
	}
}