Select Code to Download

#!/usr/bin/perl -w
use strict;
...
(hh)
jj
kk

my $re = qr{ \( (?: (?> [^()]+ ) | (??{ $re }))* \) }x;

no strict 'vars';
$rec_re = qr{ \( (?: (?> [^()]+ ) | (??{ $rec_re }))* \) }x;
my $re = $rec_re;
use strict;