$s = "you are ".int(rand(11))." on a score of 0 to 10";
print "refcount is ".Internals::SvREFCNT($s)."\n";

##</code><code>##

refcount is 1