<oerjan> learn @learn @messages-loud @messages-fond @messages-flood @messages-bond / @messages-lousy @messages-sound @messages-lost @messages-found / @messages-proud @messages-bold @messages-good @messages-gold

#!/usr/bin/perl
$_ = (join " ", @ARGV) || `words`; s/^\s+|\s+$//g; print "Bless you, $_. "; if (/[aeiouyAEIOUY]/) { s/^[^aeiouyAEIOUY]*/Bl/; } else { s/^./B/; } print "$_.";