#!/usr/bin/gawk -f
{
 for (i=1;i<=NF;++i){
	if ($i !~ /[A-Z]+/) {
		$i = ""
	}
}
1