Here is how to normalize your currency values:

# turn a dollar value like $64,000.01 into 64000.01
# to allow easy accurate comparisons...
sub num {
   my $num = shift;
   $num =~ m/([\d\.,]+)/; # grab the digits . and ,
   $num = $1 || 0;
   $num =~ s/,//g;        # remove the , chars
  return $num;            # return the normailzed number
}

print "OK" if num('$2,000.01') > num('$2000');
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print