#!/usr/bin/perl
use strict;

my $var = "e7 und E876 nimm dies!";
my @treffer = $var =~ m~(e\d+)~gi;

print "EZahl kommt ", scalar @treffer, " mal vor.";