#!/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.