#!/usr/bin/perl

use warnings;
use strict;

my $string = "Das ist ein Test wo E12E12 zweimal vorkommt...";

my ($anz) = $string =~ s%(e\d+)%$1%gi;

print $anz; # 2