my $var = 'Dies ist; ein Test!';
my $anzahl;

$anzahl = length((split(/\;/, $var))[0]);
print "Vor dem; sind $anzahl Zeichen\n";

$var =~ /\;/g;

$anzahl =  length($`);
print "Vor dem; sind $anzahl Zeichen\n";

$anzahl =  pos($var) - 1;
print "Vor dem; sind $anzahl Zeichen\n";