Select Code to Download

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

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

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