open (URDUWORDS, ") {
chomp;
my $sw = $_;
open (PLATTS, ") {
if (/^.*?
.*?( $sw )/) {
print "$sw \t $_ \n";
print "Add this definition? ";
chomp (my $dec = );
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 = );
# if (/^.*?.*?( $sw )/i) {
# print "$sw \t $_ \n";
# print "Add this definition? ";
# chomp (my $dec = );
# 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;
# }
# }
}
}
}