$teststring =~ /([A-Z]*)[_\][:space:]]/i