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";

##</code><code>##

sini@ordinalfabetix:~$ ./x.pl

1
135589228
135591376
sini@ordinalfabetix:~$