# ex_15-3a
# Learning Perl on Win32 Systems, Exercise 15.3a

while (<>) {
  substr($_,0,1) =~ tr/a-z/A-Z/;
  substr($_,1) =~ tr/A-Z/a-z/;
  print;
}