Select Code to Download

use strict;

...
   return $str . $right if $add < 1;
   return ('0' x $add) . $str . $right;
}

old: return $str if $add < 1;
new: return $str . $right if $add < 1;