my $var = 'Dies ist; ein Test!';
my $anzahl = index($var,';');
print "Vor dem; sind $anzahl Zeichen";