open (URDUWORDS, "</Users/me/test.txt") || 						
						die "Can't open files: $!";

while (<URDUWORDS>) {
	chomp;
	my $sw = $_; 
	open (PLATTS, "</Users/me/platts_wkg.html") ||
						die "Can't open files: $!";
	while (<PLATTS>) {
		if (/^.*?<p>.*?( $sw )/) {
			print "$sw \t $_ \n";
			print "Add this definition?  ";
			chomp (my $dec = <STDIN>);
			if ($dec eq "y") {
				print "\nadded \n\n";
				open (DEFS, ">>/Users/me/defs.txt") ||
					die "Can't open files: $!";
				print DEFS "$sw \t $_ \n";
				close DEFS;
			}
		#} else {
		#	print "Type in alternate spelling: ";
		#	chomp (my $sw = <STDIN>);
		#	if (/^.*?<p>.*?( $sw )/i) {
		#		print "$sw \t $_ \n";
		#		print "Add this definition?  ";
		#		chomp (my $dec = <STDIN>);
		#		if ($dec eq "y") {
		#			print "\nadded \n\n";
		#			open (DEFS, ">>/Users/me/defs.txt") ||
		#				die "Can't open files: $!";
		#			print DEFS "$sw \t $_ \n";
		#			close DEFS;
		#		}
		#	}		
		}
	}
}