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

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