my $pos = -1;
while(($pos = index($WebSeite, "%", $pos+1)) > -1) {
   print "Position: $pos\n";
}