in reply to B::Deparse (with comments)

Or another method of parsing Perl code that keeps comments?
PPI --> PPI::Token::Comment