Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
    $data =~ s/(\$\w+\s+=\s+)|[\n\[\];]//gm; # massage the output
    return [eval "$data"];
}

$VAR1 = [
          1,
...
          6,
          7
        ];