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