#!perl -p $_=uc.lc<>