<perl>
$now=datum("jetzt",'JahrMonat0Tag0');
 

@lines=split/\n/,$content; ## datensätze aufdröseln
 

shift @lines;
 

  @values=split/;/,@ds; ## einzelne werte des ds aufdröseln
  $Karten=<<EOF;
<a href="http://topevents24.cc/shop/default.asp?id=3641&id2=&usid=691104901021&cust=&log=login&agid=&key=&mode=shop&shopid=$SHOPID&title=$TITEL&descr=$BESCHREIBUNG&place=$ORT&venue=$SPIELSTAETTE" target="_blank">
<img border="0" src="http://www.daten-banken.de/infos-ueber-tickets-und-eintrittskarten.gif" width="32" height="16"></a>
EOF
put ["DATUM",$values[0],"TITEL",$values[1],"BESCHREIBUNG",$values[2],"ORT",$values[2],"SPIELSTAETTE",$values[2],"PROV",$values[2],"KAT",$values[2],"SHOPID",$values[2]],"topevents"; # achtung $values beginnt bei 0
}