package Foo;
use overload '""' => sub { qr/$_[0]/ };

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