Help for this page

Select Code to Download

Select or download this

$ cat 2 && ppi_dumper 2
 while(1) { s/^FOO/BAR/g; print "$_"; }
 PPI::Document
...
      PPI::Token::Whitespace    ' '
  PPI::Token::Whitespace        '\n'
  PPI::Token::Whitespace        ' '

Select or download this

$ cat 2 && ppi_dumper 2
while (<FH>) {
  1 while s/^FOO/BAR/g;
...
        PPI::Token::Quote::Double       '"$_"'
        PPI::Token::Structure   ';'
      PPI::Token::Whitespace    '\n'