Cool - it works! Thanks for both of the comments. It worked on the first try, only problem being I got -0.0. I was able to fix that though.

 sub format {
    my $val = shift;
    my $ret;
    if ($val < 0.001 && $val > -0.001 ) {
      $ret = sprintf('%4.2f',abs($val));
    }
    else {
      $ret = sprintf('%4.2f',$val);
    }
    return $ret;
  }
[download]