perl -ne 'print unless /^\s*#/' your_script_file

##</code><code>##

  open (PASSWDFILE, "//etc//passwd");