#!/usr/bin/perl -w
use strict; 

package Foo; 
sub foo { print "foo\n" }

package Regexp; 
sub bar { print "bar\n" }

package main; 
qr//->bar;    # Works even though it probably shouldn't. 
qr//->foo;    # Errors as expected.

##</code><code>##

 
$ perl -MB -le '$r=bless qr//,"P"; print B::svref_2object($r)->MAGIC->TYPE'
r