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