Select Code to Download

if ($string =~ /\[([^\]]+)\]/) {
    print $1;
}