Select Code to Download

use strict;
use warnings;
...
       scalar reverse $testString;
    print qq{$rest -- $digits\n};
}

abc -- 1.0.1.0
bnnn -- 1.0.1.1
this.that -- 1.0.215.0
dots.a.plenty.here -- 1.0.21.1