$teststring =~ /([A-Z]*)]/i; 

print $teststring."\n";
print $1."\n"; 

##</code><code>##

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