<perl>
get "Online_Datum\<jetzt+1 Online_Datum\>jetzt-80 Freigabe==Ja sort=-", "../LiveonStage/live", "live";
$memdatum=$Konzertdatum;
$Text1=substr($Text1,0,250);
$Text1 =~ /(.+)\s/;
$Temp = $1;
$Text1 = $Temp if ($Text1=~/.+\s/);
out "<b>$Konzert</b><br>";
out "($Ort - $Veranstaltungshalle - ".datum($memdatum, "Tag0.Monat0.Jahr");
out ")<p>";
out "<font size='2'>$Text1 
...</font></p>";

{
$memdatum=$Konzertdatum;
out "<li><font size='2'><b>$Konzert</b> - ";
out "($Ort - ".datum($memdatum, "Tag0.Monat0.Jahr");
out ")</font></li>";
}
</perl>