use LWP::UserAgent;

my $hdrs = new HTTP::Headers('Accept' => 'text/plain', 'User-Agent' => 'IE/5.0');
my $ua = new LWP::UserAgent;

$page=get_url('http://www.friendscout.de');

if ($page=~ /content="\d+;url=([^"]+)/m) {
    print "\n\n*********MATCH($1)*******\n\n";
    $page=get_url("http://www.friendscout.de/$1");
} else {
    print "redirect not found !";
}

if ($page=~ /location.href="([^"]+)"/s) {
    print "\n\n*********MATCH2($1)*******\n\n";
    $page=get_url("http://www.friendscout.de/$1&page=loginp&nickname=JohnSmith&password=test&x=0&y
+=0");
} else {
    print "redirect not found !";
}

print $page;

if ($page=~ /main.location.replace\("([^"]+)"/s) {
    print "\n\n*********MATCH3($1)*******\n\n";
    $page=get_url("http://www.friendscout.de/$1&page=loginp&nickname=JohnSmith&password=test&x=0&y
+=0");
} else {
    print "redirect not found !";
}
print $page;

sub get_url()
{
    my $url2get = shift @_;

    my $url = new URI::URL($url2get);
    my $req = new HTTP::Request('GET', $url, $hdrs);
    my $resp = $ua->request($req);

    if ($resp->is_success) {
           return  $resp->content;}
    else {
           return $resp->message;}
}