use warnings;
@ARGV = 'Google_1';
my @results;

while ( <ARGV> ){
	chomp $_;
	  if($_ =~m/head/){
	push (@results, $_);
}
}
print "@results\n";