#!/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;

my $rex     = qr/[A-Z]o[A-Z]/;
my $bar = \$rex;
#my $blessed = bless qr/[A-Z]o[A-Z]/,'foo';
my $blessed = bless $bar, 'foo';

$\="\n";
$,=":\t";
print "Rex  ",ref $rex;
print "Bless",ref $blessed;

print "Rex  ",$rex,"WoW"=~$rex ? "WoW" : "---";
print "Bless",$blessed,"WoW"=~$$blessed ? "WoW" : "---";
print "Rex  ",$rex,"wow"=~$rex ? "!WoW" : "---";
print "Bless",$blessed,"wow"=~$$blessed ? "!WoW" : "---";
print "Rex  ",Dumper($rex);
print "Bless",Dumper($blessed);

print "Blessed bar", ref $$blessed;

##</code><code>##

Rex  :  Regexp
Bless:  foo
Rex  :  (?-xism:[A-Z]o[A-Z]):   WoW
Bless:  foo=SCALAR(0x80fd428):  WoW
Rex  :  (?-xism:[A-Z]o[A-Z]):   ---
Bless:  foo=SCALAR(0x80fd428):  ---
Rex  :  $VAR1 = qr/(?-xism:[A-Z]o[A-Z])/;

Bless:  $VAR1 = bless( do{\(my $o = qr/(?-xism:[A-Z]o[A-Z])/)}, 'foo' );

Blessed bar:    Regexp