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

##</code><code>##

and print ucfirst join$/,/.(.)/g;