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

print "Usereingabe ist '", $treffer[0], "'\n";