my @treffer;
do{
    my $temp = <STDIN>;
    @treffer = $temp =~ m~(e\d+)~gi;
} while (scalar @treffer != 1);