a form the segment of the code looks like this:

if($es =~ /\b$    0.00 \b/)

You don't really need those \b's but you do need to escape your $ because it is a regular expression metacharacter meaning "Match the end of the line." That's probably not what you want.

-sauoq
"My two cents aren't worth a dime.";