#!/usr/bin/perl -- print "Content-type: text/html\n\n"; my ($Map,$start,$end); use LWP::Simple; $data = get("http://www.map24.ch/map24/routing.php3?lang=de&mid=LINK2&lid=f6424470&maptype=java&rtype=fast&sstreet=&szip=4150&scity=&scountry=ch&sdescription=Startbeschreibung&dstreet=Bergstrasse&dzip=4114&dcity=Hofstetten&dcountry=ch&ddescription=Zielbeschreibung"); die "Couldn't get it! $!" unless defined $data; $start = ''; $end = ''; $data =~ m/$start(.*)$end/si; $Main_data = $1; print $Main_data;