String auf Zeichen prüfen!

[piep]

Das widerspricht aber der 1. Bedingung, oder?
falls nicht, ist das eine Lösung:
sub check
{
    my $s = shift;
    my $regEx = 'E[^E]*.';
    if($s =~ /$regEx/)
    {...

Achja, sicher ist das widersprüchlich. *argh* Ich dumm!!!!  :)
Ok, ne korrekte Eingabe wäre natürlich "aaaEccc.zzz".

Wenn ich deine Funktion benutze, dann hab ich immer noch folgendes Problem:

1. Der String kann auch mehrere "E" enthalten! --> Darf nicht sein
2. Der Punkt kann auch direkt hinter dem "E" stehen! --> Darf auch nicht sein