Select Code to Download

my $re;
$re = qr/
    \[ # Opening bracket
...
$k = "a[b[c[d]]";
$k =~ s/$re/<$1>/g;
print $k;