Select Code to Download

use Data::Dumper; $Data::Dumper::Terse = $Data::Dumper::Indent = 1;

...
        set    => [ @set ]
    }), $/;
}

my $test = <<EOT;
This is a new line [,set ]
...
    set = [ one | two | three ]
(this is new also)
EOT