#! perl -sw
use strict;
use Benchmark::Timer;

sub IsWord {
	return if not @_ or length == 1;
	my ($word, $first, $c2n3) = $_[0] =~ /^((.)(..?)?.*)$/;
	local $_ = do{ local (@ARGV,$/) = "./$first/$c2n3"; <> };
	return /^$word$/im;
}

my $timer = Benchmark::Timer->new(skip=>0);

for (@ARGV) {
	$timer->start;
	my $IsWord = IsWord( $_ );
	$timer->stop;
	print $_, $IsWord ? ' is ' : ' is not ', 'a word', $/;
}

$timer->report;
print "@{[$timer->data('_default')]}", $/;

__END__