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