while (<DATA>) {
	/([A-Z]+)/i;  # upper AND lower!
	print $1,"\n";
}