====== Substring mit Regex extrahieren ======
<code perl>
/([-a-z0-9]+)\s*\((.*?)\)\s*(\*)?/

# Beispiel:
$s = "abc-456-hu5t10 (High priority) *";
$s =~ /([-a-z0-9]+)\s*\((.*?)\)\s*(\*)?/;
print "$1\n$2\n$3\n";

#Ausgabe:
abc-456-hu5t10
High priority
*
</code>