$teststring =~ /^[[]?([^] _]+)/;