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