var cars=new Array();cars[0]=new Car('http://pic.autoscout24.net/images-small/984/101/0136101984001.jpg',
'8 Bilder','/Details.aspx?id=bd1vul43oeno',false,'€ 7.500,-','€ 0,-','','25.000','06/1978','37/50','37 kW / 50','Bugatti EB 110 replica',
'','','','D-81673','München','','','Weiß','Bugatti','EB 110','Benzin'
,false,'bd1vul43oeno','Schaltgetriebe',false,'',false,'','',false);cars[1]=
new Car('http://pic.autoscout24.net/images-small/826/783/0130783826001.jpg',
'6 Bilder','/Details.aspx?id=bdu23n3wqbss',false,'€ 14.890,-','€ 0,-','','1','08/1977','44/60','44 kW / 60','Bugatti EB 110 Bugatti 35 Replika','','','',
'D-51588','Nümbrecht','','','Blau','Bugatti','EB 110','Benzin',false,'bdu23n3wqbss','',false,'',false,'','',false);cars[2]=
new Car('http://pic.autoscout24.net/images-small/475/774/0054774475001.jpg',
'15 Bilder','/Details.aspx?id=fe22yo2zsbk',false,'€ 229.000,-','€ 0,-','','17.670','08/1994','412/560','412 kW / 560',
'Bugatti EB 110 EB 110 GT*Deutsche Auslieferung*','','ABS, Alarmanlage, Allrad, Elektr. Fensterheber, Klima, Klimaautomatik,
 Lederausstattung, Zentralverriegelung',
'','D-53498','Bad Breisig','','','blau','Bugatti','EB 110','Benzin',false,'fe22yo2zsbk','Schaltgetriebe',false,'',false,'','',false);
cars[3]=new Car('http://pic.autoscout24.net/images-small/105/745/0064745105001.jpg'
,'2 Bilder','/Details.aspx?id=ge2yzluzmgp',false,'€ 1.295.000,-','€ 0,-','','0','-','736/1001','736 kW / 1001','Bugatti EB 110 Veyron 16.4','',
'ABS, Airbag, Alarmanlage, Beifahrer Airbag, Bordcomputer, Elektr. Fensterheber, Elektrische Sitze, Klima, Klimaautomatik, Lederausstattung...','',
'D-46325','Borken','','','silber oder rot Metallic','Bugatti','EB 110','Benzin',false,'ge2yzluzmgp','Automatik',false,'',false,'','',false);// -->

use strict;
use warnings;
use Data::Dumper;
use LWP::Simple;

my @cars;

my $page = get("http://www.autoscout24.de/List.aspx?vis=1&make=15&model=15677&pricefrom=1000&cy=D&page=1&maxresults=500&results=20&ustate=N&ustate=U&um=True&sort=price&zipc=D");

my @lines = split(/\n/, $page);

foreach my $line (  @lines )
{
        next if $line !~ m/var\ cars/;
        my @results = split (/new Car/, $line);
        foreach my $result ( @results )
        {
                #print "==================\n" . $result . "\n";
                if ( $result =~ m// ) {
                        $bezeichnung = $1

                }
        }
}
my $d = Data::Dumper->new ( \@cars );
my $data = $d->Dump;