Select Code to Download

my $foo = "foo's $bar";
          ^

my $foo = "foo's $bar";
          ^---------->

  <perlcode>
    <reserved>my</reserved>
...
    <operator>=</operator>
    <string>"foo's <variable>$bar</variable>"</string>;
  </perlcode>