Select Code to Download

#!/usr/bin/perl -w

...
print "Bless",Dumper($blessed);

print "Blessed bar", ref $$blessed;

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

Blessed bar:    Regexp