# ex_15-3b

# Learning Perl on Win32 Systems, Exercise 15.3b



while (<>) {

  print "\u\L$_";

}