@_=qw=PerlMonksRock!=;$_=q;
uJts natoehr ePlr ahkcre.;;
$a=q#s<(\D)(\w)>@$+$1@g;;1;
#;;eval($a)=>$b.=qq=$_ =for
split;;print $b,$/,#@PM.ORG