#! /usr/bin/perl -w

open (FH,"lshal.txt") || die "Datei nicht gefunden";

while ($_=<FH>)
{
    $_ = ~ /^$/;
    print $_;
}
close(FH);