sub dollars_cents
{
    my $value = shift;

    my $comma = qq(,);
    my $count;
    my $dot = qq(.);
    my $dollar_sign = qq(\$);
    my @new_value;
    my $new_value;
    my @rvrs_value;
    my @value;

    $value =~ s/\D//g;
    @value = split (//,$value);
    @rvrs_value = reverse @value;
    push(@new_value, $rvrs_value[0]);
    shift @rvrs_value;
    push(@new_value, $rvrs_value[0]);
    shift @rvrs_value;
    push(@new_value, $dot);

    $count = 0;
    while (@rvrs_value)
    {  if ($count eq 3)
        {    push(@new_value, $comma);
            $count = 0;
        }
        else
        {   push (@new_value, $rvrs_value[0]);
            shift @rvrs_value;
            $count++;
        }
    }
    push(@new_value, $dollar_sign);
    @new_value = reverse(@new_value);
    $new_value = join(//,@new_value);
    return($new_value);
}
[download]

Janitored by Arunbear - added code tags, as per Monastery guidelines