#!/usr/bin/perl
#Ž´ŽÁŽ»”§Ž³Ž¡Ž¼Ž¥ŽÉŽ¤ŽÏEUC

$in="da";
$out="dt.htm";

#$target="\\bma(de|k(ing|es?))\\s+([a-zA-Z0-9'-]+\\s+){0,3}use\\s+of\\b";
#$target="([^a]\\s+|^)look(ing|ed|s)?\\s+(?!(up|into)\\s+)([\\w'-]+\\s+){0,3}at\\b";
#$target="\\ba\\s+look(ing|ed|s)?\\s+(?!(up|into)\\s+)([\\w'-]+\\s+){0,3}at\\b";
$target="\\bt(old|ell(ing|s)?)\\s+([\\w'-]+\\s+){0,5}to\\b";

#print $target,"\n";
#exit;

open (FILE, "$in") || die "Can't open $in\n$!\n";
while (<FILE>)
{
	chomp;
	if ($_ =~ /$target/i) { print "$_\n";}
}
close FILE;