Perl Regulärer Ausdruck im exakt drei Großbuchstaben zu finden

[*Markus]

Hallo,

Ich würde jetzt gerne noch die drei Buchstaben in der Klammer gesondert auslesen, d.h. es soll HBF noch extra gesucht werden.

suche doch nach allem gleichzeitig, zB:

  
$text =~ /.+>(\w+?)\s+?\(([A-Z]{3})\).+/g;  
my($bahnhof, $initialen) = ($1, $2);  

Markus.