Help for this page
$desc =~ /.+\[(.+)\]\s*$ (?{ $org = $1 or ''; })/x;
my $enz, my $org; my $rx_enz_org = qr/ ... <begin $desc loop> $desc =~ /$rx_enz_org/; <end loop>