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