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

[*Markus]

Hi,

Wie streiche ich mit regulären Ausdrücken alles ausser eben jene drei Buchstaben?

zB so..

  
my $text = 'Hauptbahnhof (HBF)';  
  
$text =~ s/\w+\s+?\(([A-Z]{3})\)/$1/;  
  
print $text;  

..aber wie ich bereits sagte, warum zuerst etwas herauspicken um aus dem Ergebnis wieder etwas herauszupicken, wenn es doch effizienter und sinnvoller ist, gleich beide Matches zuzuweisen?

Markus.