perl -e 'use Scalar::Util; $ref = qr//; print "$ref\n"; print Scalar::Util::refaddr($ref)."\n";'
(?-xism:)
0