perl -MLWP::Simple -lE '@w=get("http://jbauman.com/gsl.html")=~/^\d+\s+\d+\s+([a-z]+)/xmsg;say join" ",map{$w[rand@w]}1..4'