#!/usr/bin/perl

use warnings;
use strict;

my $string = "Das ist ein Test wo e12 zweimal vorkommt, naemlich genau jetzt: e12...";

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

print $anz; # 2