hi ho
open REIN,"<$rein" or &error (tralala); # oeffnen zum lesen
open RAUS,">$raus" or &error (soundso); # und zum schreiben
while (<REIN>) {
if (/^URL:\s*(.+)$/) { # siehe perldoc perlre :-)
print RAUS "$1\n";
der aufmerksame leser wird gemerkt haben - hier fehlt eine } .-), also:
print RAUS "$1\n";}
so!
cua
n.d.p.