Select Code to Download

use strict; use warnings; use feature 'say';
use Data::Dumper;
...
}

print Dumper \%results;

if ($num =~ m/  \A (-?) ([0-9]+) \z /x ) {
    my $sign = $1;
    my $digits = $2;
    ...
}