# Begin quoting from <http://p3m.org/faq/C3/Q3.html>
    sub getnum {
        use POSIX qw(strtod);
        my $str = shift;
        $str =~ s/^\s+//;
        $str =~ s/\s+$//;
        $! = 0;
        my($num, $unparsed) = strtod($str);
        if (($str eq '') || ($unparsed != 0) || $!) {
            return undef;
        } else {
            return $num;
        }
    }

    sub is_numeric { defined getnum($_[0]) }
    # end quoting...

sub comp {
  use POSIX qw(strtol);
  my ($a, $b) = @_;

  if (is_numeric($a) && is_numeric($b)) {
    return (strtol($a * 100) == strtol($b * 100));
  } else {
    return ( $a eq $b );
  }
}