use warnings;
use strict;

use PPI;
use PPI::Dumper;

# string

{
    my $doc = PPI::Document->new(
        \'print "hello, world!\n"'
    ) or die $!;

    print $doc->find_first('PPI::Statement') ."\n";

    my $dumpr = PPI::Dumper->new($doc, qw(whitespace 0 comments 0));
    $dumpr->print;
}

# string within scalar

{
    my $run = 'print "goodbye, world!\n"';

    my $doc = PPI::Document->new(\$run) or die $!;

    print $doc->find_first('PPI::Statement') ."\n";

    my $dumpr = PPI::Dumper->new($doc, qw(whitespace 0 comments 0));
    $dumpr->print;
}

##</code><code>##

print "hello, world!\n"
PPI::Document
  PPI::Statement
    PPI::Token::Word  	'print'
    PPI::Token::Quote::Double  	'"hello, world!\n"'
print "goodbye, world!\n"
PPI::Document
  PPI::Statement
    PPI::Token::Word  	'print'
    PPI::Token::Quote::Double  	'"goodbye, world!\n"'