#ex_15-4a
#Learning Perl, Appendix A, Exercise 15.4
while (<>)
  substr($_,0,1) =~ tr/a-z/A-Z/;
  substr($_,1) =~ tr/A-Z/a-z/;
  print;
}