while($line=<DATA>)
{
	while($line=~m/monks/g)
	{
        	print "\n==>$`\nmonks\n$'";
	}
}