while($line=<DATA>)
{
	if($line=~/(.*)(monks)(.*)/)
	{
        	print "\n$1\n$2\n$3";
	}
}
__DATA__
perl monks wisdom
monks perl wisdom