Select Code to Download

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

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