Select Code to Download

    my $didit=/^
        a         # literal a
...
        42        # literal 42
    $/x;
    print Dumper [$_, $didit?($1,$2):(undef,undef),  $didit];

# 2
$VAR1 = [
...
          'o] grmbl',
          '1'
        ];