my %hash;
my $re= qr{
     ( /\* .*? \*/) | ( \/\/[^\n]*)           
     | " (?: [^"\\]* | \\. )* "               
     | ' (?: [^'\\]* | \\. )* '               
     | . [^/"']*                              
   }xs;

while(  /$re/g  ) {
    $hash{pos($_)}= $1;
}