$_="uccsm jhvkqldtr oee hofaxrtaajshkebuwelrnpitgnpry!";
$_= join$\,sort/(..)/g and print ucfirst join$/,/.(.)/g;