perl -pe's/\b./\U$&/g'