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