#!/usr/bin/perl -w
use strict;

open( FILE, $ARGV[0] ) || die "Cannot open file!";

while ( <FILE> )
{
	# print the filtered line
	my $line = $_;
	if ( $line =~ /"[^"]*\bneat saying\b[^"]*"/ )
	{
		print $line;
	}
}

close( FILE );