#!c:/perl/bin/Perl.exe

print "Content-type:  text/html; charset=iso-8859-1\n\n";

use LWP::Simple;


$content = get("http://www.pm-nachterlebniswelt.de/Programm");
    die "Couldn't get it!" unless defined $content;
    
my ($var) = $content =~ m!<td width="97%" class="titles"><strong><font color="">(.*?).\-.(.*?)</font></strong></td>
               
 </tr>
               
 <tr> 
               
     <td><img src="/images/trans.gif" height="14"></td>
               
     <td valign="top">(.*?)</td>
               
 </tr>
        </table>!s;
        
    
print"$1 ..... $2 .....$3<br>";

01.07 ..... Vice Night Beach .....Location: Disco 
Freitag Abend 22 Uhr 
die Türen zur Disco öffnen sich 
die Nacht ist noch jung 
doch die Party geht schon los 
Vice-Night die Party 
coole drinks-hot service

use strict;
use warnings;

local $/ = undef;
my $content = <DATA>;

my $Re = qr/A(\d)---B(\d)---C(\d)/;

while ($content =~ m/$Re/sg) {    # /s hier nicht benötigt, aber im OT-Re
    print "A: $1, B: $2, C: $3\n";
}
# Leerzeichen in folgender Zeile nur für Post,
# da sich die Forum-Software sonst verschluckt
_ _DATA_ _
....   ...   A1---B1---C1--- .....
... ---A2---B2---C2... ...
.. .. ---A3---B3---C3--- ...