open (INFILE, '<wordlist');

my $word = lc($ARGV[0]);
my $size = length($word);
while ($foo = <INFILE>)
{
	if (lc($foo) =~ /^[$word]{$size}$/o)
	{
		print "Match: " . $foo . "\n";
	}
}