while (<>) { print uc $_; }