if ($_ =~ /[ARKYGZX]{2,3}/){
	print $_, "\n";
}