$ cat 2 && ppi_dumper 2
 while(1) { s/^FOO/BAR/g; print "$_"; }
 PPI::Document
  PPI::Token::Whitespace        ' '
  PPI::Statement::Compound
    PPI::Token::Word    'while'
    PPI::Structure::Condition   ( ... )
      PPI::Statement::Expression
        PPI::Token::Number      '1'
    PPI::Token::Whitespace      ' '
    PPI::Structure::Block       { ... }
      PPI::Token::Whitespace    ' '
      PPI::Statement
        PPI::Token::Regexp::Substitute          's/^FOO/BAR/g'
        PPI::Token::Structure   ';'
      PPI::Token::Whitespace    ' '
      PPI::Statement
        PPI::Token::Word        'print'
        PPI::Token::Whitespace          ' '
        PPI::Token::Quote::Double       '"$_"'
        PPI::Token::Structure   ';'
      PPI::Token::Whitespace    ' '
  PPI::Token::Whitespace        '\n'
  PPI::Token::Whitespace        ' '
[download]

$ cat 2 && ppi_dumper 2
while (<FH>) {
  1 while s/^FOO/BAR/g;
  print "$_";
}PPI::Document
  PPI::Statement::Compound
    PPI::Token::Word    'while'
    PPI::Token::Whitespace      ' '
    PPI::Structure::Condition   ( ... )
      PPI::Statement::Expression
        PPI::Token::QuoteLike::Readline         '<FH>'
    PPI::Token::Whitespace      ' '
    PPI::Structure::Block       { ... }
      PPI::Token::Whitespace    '\n'
      PPI::Token::Whitespace    '  '
      PPI::Statement
        PPI::Token::Number      '1'
        PPI::Token::Whitespace          ' '
        PPI::Token::Word        'while'
        PPI::Token::Whitespace          ' '
        PPI::Token::Regexp::Substitute          's/^FOO/BAR/g'
        PPI::Token::Structure   ';'
      PPI::Token::Whitespace    '\n'
      PPI::Token::Whitespace    '  '
      PPI::Statement
        PPI::Token::Word        'print'
        PPI::Token::Whitespace          ' '
        PPI::Token::Quote::Double       '"$_"'
        PPI::Token::Structure   ';'
      PPI::Token::Whitespace    '\n'
[download]