while (<>) {
	chomp $_;
	if ($_ =~ /GAATTC/) {
		print "Found an EcoRI site! \n";
		$sites++;
	} elsif ($_ eq '') {
		last;
	}
}