my $pos = index($WebSeite, "%");
if($pos > -1) {
    print "Position: $pos\n";
    print "Data: [" . substr($WebSeite, $pos) . "]\n";
}