I also condensed the if($current =~ m/mA/) stuff into this:

            if($current =~ s/mA//i)
            {
                $current /= 1000;
            }
[download]

and put that everywhere it was in use.