String auf Zeichen prüfen!

[Struppi]

1. Es darf in diesem String nur genau ein "E" vorkommen, nicht mehr und nicht weniger.
2. Es muss nach dem "E" irgendwo ein "." kommen, allerdings nicht direkt nach dem "E".

Sprich die korrekt Eingabe müsste so aussehen:  AAAEBBB.EEE

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/)
    {
        print "$s ist ok.\n";
    }
    else
    {
        print "$s ist nicht ok. \n";
    }
}

Struppi.