You did not see my original post ?

Yes, of course I did :) Did you not see kcotts reply?

Why not answer any of kcotts questions, or do as kcott asks?

When you say things like tried few things, could not work out a solution to cover all the situations.

Then that is a great place to start -- show us what you have

Ok, I'll show you something

$ ppi_dumper  junk
PPI::Document
  PPI::Token::Comment   '# this is a comment, should be matched.\n'
  PPI::Token::Comment   '# "I am not a string" . 'because I am inside 
+a comment'\n'
  PPI::Statement::Variable
    PPI::Token::Word    'my'
    PPI::Token::Whitespace      ' '
    PPI::Token::Symbol          '$string'
    PPI::Token::Whitespace      ' '
    PPI::Token::Operator        '='
    PPI::Token::Whitespace      ' '
    PPI::Token::Quote::Double   '" #I am not a comment, because I am q
+uoted"'
    PPI::Token::Structure       ';'
  PPI::Token::Whitespace        '\n'
  PPI::Statement::Variable
    PPI::Token::Word    'my'
    PPI::Token::Whitespace      ' '
    PPI::Token::Symbol          '$another_string'
    PPI::Token::Whitespace      ' '
    PPI::Token::Operator        '='
    PPI::Token::Whitespace      ' '
    PPI::Token::Quote::Double   '"I am a multiline string with # on \n
+                      each line #, have fun!"'
    PPI::Token::Structure       ';'
  PPI::Token::Whitespace        '\n'
[download]