Select Code to Download

use strict;
use warnings;
...
print $re2 == $re2,"\n";
print 0+$re,"\n";
print 0+$re2,"\n";

sini@ordinalfabetix:~$ ./x.pl

...
135589228
135591376
sini@ordinalfabetix:~$