RT 37352: $$$a parsed $$ magic plus $a

[moregan]

https://rt.cpan.org/Ticket/Display.html?id=37352 https://rt.cpan.org/Ticket/Display.html?id=72679

ppidump '$$$a = 3;'
                    PPI::Document
                      PPI::Statement
[    1,   1,   1 ]     PPI::Token::Magic        '$$'
[    1,   3,   3 ]     PPI::Token::Symbol       '$a'
[    1,   6,   6 ]     PPI::Token::Operator     '='
[    1,   8,   8 ]     PPI::Token::Number       '3'
[    1,   9,   9 ]     PPI::Token::Structure    ';'

whereas:

perl -WE 'my $a=\\"foo"; print $$$a;'
foo