my @com=grep defined, <F> =~ m{
     ( /\* .*? \*/) | ( \/\/[^\n]*)           
     | " (?: [^"\\]* | \\. )* "               
     | ' (?: [^'\\]* | \\. )* '               
     | . [^/"']*                              
   }xgs;
  close(F);