#! /usr/bin/perl -w

use strict;

my ( $word, $tmpword );

open DICT, 'wordlist' or die "Cannot open dictionary: $!";

while ( $word = <DICT> ) {
	next if ( length $word  > $#ARGV + 2 );
	chop $word;
	$tmpword = $word;
	foreach my $i ( @ARGV ) {
		$tmpword =~ s/$i//;
	}
	unless ( $tmpword ) {
		print "$word\n";
	}
}