Select Code to Download

use Modern::Perl;

my %rule = (
...
    s/(\d*(\d))/$1+$rule{$2}/e;
    say "\t rounded=$_";
}