Regulärer Ausdruck

[CPAN]

Ich habe die unkomplizierteste und beste Lösung.

my ($ergebnis) = $text =~ /(aaa|bbb|ccc|....|zzz)/;