Select Code to Download

my $pat = qr {
 (?(DEFINE) (?<number> (?: [0-9]+ ))
...
               \( \s* (?&expr) \s* \)))
 )
 (?&expr) }x;