>perl -e"print ref qr//"
Regexp

##</code><code>##

($\={})=~s/(?<=.).+//&&print+(q/J/,\//=~/..
(\S)/x&&$1.$2.((ref qr//)=~/.+(.)/&&uc($1)))