perl -le '@l=("a".."z"); $_=join("",@l); 
  s/../\u$&/g; 
  print'