Help for this page
perl -e ' while(<>){@monk_split=split(/\s*(monks)\s*/);print join"\n", +@monk_split}' ~/tmp/tmp.dat perl ... monks perl wisdom