Help for this page
perl -e 'open(DATA, "datafile.txt"); while (<DATA>) { print "$_\n" if +/\b$ 0.00 \b/; }'