#!/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(e12)\b%e12%g;

print $anz; # 2