print ref $r;

##</code><code>##

print Dumper $r;