perl -MLWP::Simple -e ' print ( scalar ( () = get($ARGV[0]) =~ /\b$ARGV[1]\b/g ) )' http://www.perlmonks.org/ Monks