sub t {
	printf "%10s %s /%s/\n",
	     $_[0],
	     ($_[0]=~/$_[1]/ ? "=~" : "!="),
	     $_[1];
};

$bqr=bless qr/^blessed$/,"Foo";
$qr=qr/^normal$/;

foreach $rex ($bqr,$qr) {
	t($_,$rex)
		foreach qw(normal blessed);
}

__END__
    normal != /Foo=SCALAR(0x1abf1d8)/
   blessed =~ /Foo=SCALAR(0x1abf1d8)/
    normal =~ /(?-xism:^normal$)/
   blessed != /(?-xism:^normal$)/