Select Code to Download

use v5.8.0;  # or higher  # For $^N

...

   (?{ @rv = @temp_rv })
/x;

use strict;
use warnings;
...

my $rv = $parser->parse($text)
   or die("Bad text\n");