$search='an';
open(W,"/usr/share/dict/words);
while (<W>) {
	print if m/$search/;
}