my ($innerstr) = ($str =~ /\[(.*?)\]/);