@array = qw( esel2 esel3 esel4 esel7 esel19 ); # 5 x esel

$anzahl_esel = scalar grep /esel/i, @array;