perl -i.bak -e 's/^(.+\$DEBUG.+)$/#$1/' foo.pl