my $qr=qr/^normal$/;
my $bqr=bless \(qr/^blessed$/),"Foo";
print "Normal : $qr\n";
print "Blessed: $$bqr\n";