my $r = bless qr/foo/, "MyPackage";