#!/bin/rc
awk '/\./ {print $0 ; next} {print toupper($0)}' $*
