Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
use 5.010;
...
    byte => [undef],
  },
]

my $re = qr{
# match this
( # save to  $1
...
  )
)
}x;