my $ua = new LWP::UserAgent;
my $req = new HTTP::Request 'GET' => "http://www.url.de";
my $res = $ua->request($req);

if ($res->is_success) {
    print "hat geklappt";
} else {
    $rueckgabe = "Error: URL not found"; exit;
}

my $WebSeite = $res->content;

my $Suchvariable = "%";

if ($WebSeite =~ /$Suchvariable/g) {
      $Treffer = pos($WebSeite);
}

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

$ perl -wle'
my $page = "foo % bar % baz % end";
my $re = "%";
while ($page =~ m/$re/go) {
print pos $page
}'
5
11
17

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