Select Code to Download

  $re = qr{
             \(
...
             )*
             \)
          }x;

use warnings;
use strict;
...
     }egxms;

print "$result \n";