#!/usr/bin/perl
#
# eg3: print matching lines of fred
#
while( <> )
{
	chomp;
	print "found '$_'\n" if /dun[ck]/i;
}
