Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse -
 $_ = qq~"$_"~;
__END__
$_ = qq["$_"];
  2. or download this
    $ ppi_dumper input_file
PPI::Document
  PPI::Statement
...
    PPI::Token::Whitespace      ' '
    PPI::Token::Quote::Interpolate      'qq~"$_"~'
    PPI::Token::Structure       ';'