Select Code to Download

use strict;
use warnings;
...
    (my $str = $numStr) =~ s{(...)}{chr $1}eg;
    return $str;
}

Original: smpl95
Numified: 115109112108057053
...
Numified: 102117106051050052
 Decoded: fuj324
-------------------------