$content = get("http://www.prisma-nachterlebniswelt.de/Programm");

my $Re = '<td width="97%" class="titles"><strong><font color="">... ([0-9]{1,2}). ([a-zA-Z]{1,20}) - (.*?)</font></strong></td>
				</tr>
				<tr> 
					<td><img src="/images/trans.gif" height="14"></td>
					<td valign="top">(.*)
<br>';
		
		
		
while ($content =~ m~$Re~sg) {    # /s hier nicht benötigt, aber im OT-Re
    print "<b>prisma</b> <br/>DATUM: $1<br/>Veranstaltungsname: $2<br/> AREA: $3<br/> BESCHREIBUNG: $4<br/>";
	#my $statement = "INSERT INTO event_details (location, datum, djs, eintritt, eventname, area, beschreibung) values (?,?,?,?,?,?,?);";
	#my $sth = $dbh->prepare($statement) or die $DBI::errstr;
	#$sth->execute('PM',$1,'verschiedene','verschieden 6 bis 10 euro',$2,$3,$4) or die $DBI::errstr;
}