open(FILE, "<Google.txt") or die "Could not open file: $!";
while(<FILE>){
if(m/^Google/)	{
	print $_;
	}
}