perl -ne 'print ucfirst lc;' FILENAME
   will do it.