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