perl -pe's/\b./uc$&/ge'