$_=chr,uc eq lc&&print"\$$_=${/\$/?\3333:$_./_/}
"for 33..126