Regulärer Ausdruck

[Beat]

$text =~ /aaa|bbb|ccc|....|zzz/;
Wie weiß ich nun, welcher der Texte gefunden wurde?

Wenn der Unterschied die Abarbeitung bestimmt:

for($text){  
  /aaa/ and do{...} and last;  
  /bbb/ and do{...} and last;  
  #...  
}

oder

my %displatch=(  
   aaa=>sub{},  
   bbb=>sub{},  
   ccc=>sub{ return 42 },  
);  
  
$text =~ /(aaa|bbb|ccc|....|zzz)/  
   and exists $dispatch{$1}  
   and $dispatch{$1};  

mfg Beat