use strict;
use warnings;

my $re =qr{a};
my $re2 =qr{a};
print $re == $re2,"\n";
print $re2 == $re2,"\n";
print 0+$re,"\n";
print 0+$re2,"\n";