jo, hab die variablen deklariert ...

jetztm üsste noch n kleiner fehler in Zeile 18 sein... "bad name". Ich sehe da keinen Fehler.

C:\PXPerl\bin>perl script.pl
Bad name after DATA' at script.pl line 18.

$entry = 'DATA' . $entry unless($entry =~ /^DATA/);