acongojar: to sadden or grieve. Mi hermano estaba muy acongojado cuando murió\; su esposa, my brother was very sad when his wife died."); if (day == 23) document.write("
contestar: to answer. Sus oraciones fueron contestadas, her prayers were answered.");
.... SNIP ....
####
#!/usr/bin/perl -Tw
use strict;
use LWP::Simple;
my $url = 'http://spanish.about.com/homework/spanish/blword.htm';
die "Unable to download Spanish word of the day." unless (defined(my $web = get ($url)));
my $today = ((localtime)[3]);
print "\nToday: $today\n";
my ($word, $def, $sent, $trans) = $web =~ m[if \(day == $today\).+?(\w+):(.+?)(.+?),(.+?).]s;
print "Word: $word\nDefinition: $def\nSentence: $sent\nTranslation: $trans\n";