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