Substring mit Regex extrahieren

/([-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
*