Select Code to Download

sub commify {
    scalar reverse join ',',
    unpack '(A3)*',
    scalar reverse shift
}

sub commify {
    my ( $sign, $int, $frac ) = ( $_[0] =~ /^([+-]?)(\d*)(.*)/ );
...
    );
    return $sign . $commified . $frac;
}