Select Code to Download

$desc =~ /.+\[(.+)\]\s*$ (?{ $org = $1 or ''; })/x;

my $enz, my $org;
my $rx_enz_org = qr/
...
<begin $desc loop>
  $desc =~ /$rx_enz_org/;
<end loop>