perl -ne 'next if m{^\s*;\s*[^#]}; print $_' debugging.pl > stripped.pl