Select Code to Download

.... SNIP .....
if (day == 22) document.write("<p><font size='+2'><font color='#cc0000
+'><i><b>acongojar:</b></i></font> to sadden or grieve. <i>Mi hermano 
+estaba muy acongojado cuando muri&oacute\; su esposa</i>, my brother 
+was very sad when his wife died.</font>");

if (day == 23) document.write("<p><font size='+2'><font color='#cc0000
+'><i><b>contestar:</b></i></font> to answer. <i>Sus oraciones fueron 
+contestadas</i>, her prayers were answered.</font>");
.... SNIP ....

#!/usr/bin/perl -Tw

...
my ($word, $def, $sent, $trans) = $web =~ m[if \(day == $today\).+?<b>
+(\w+):</b></i></font>(.+?)<i>(.+?)</i>,(.+?).</font>]s;

print "Word: $word\nDefinition: $def\nSentence: $sent\nTranslation: $t
+rans\n";