undef $/;
  open(F,"$file") || die "$!";

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