<perl>
$_counter=0;
get "Montagsgruppe";
for(my $i=0; $i<$_amount; $i++)
{
    if ($Montagsgruppe{Teilnahme}[$i] eq 'Ja') 
    { $_counter=$_counter+1 }
}
out "<p align=center><font face=\"$font\" size=\"2\"><b>Teilnehmer: ";
out "$_counter</b></font></p>";
</perl>