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

[Siechfred]

Hell-O!

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

  
Das gibt's auch als Einzeiler:  
  
`my ($name, $abk) = $string =~ /^(\w+?)\s+?\(([A-Z]{3})\)$/;`{:.language-Perl}  
  
Nur der Vollständigkeit halber :-)  
  
Siechfred

-- 
Hier könnte Ihre Werbung stehen.  
[Schöne Wörter, Teil 2](http://siechfred.kennt-wayne.de/2006/5/schoene_woerter_2) || [Die neue 1%-Regelung](http://www.steuerwerkstatt.de/blog/)