#!/usr/local/bin/perl -w
# miniloop.pl -- Minischleife mit while: Erste Entity-Zeile

# Ueberspringe alle Zeilen vor der ersten leeren Zeile (Header).
$line = 'non-empty';
$line = <STDIN> while $line !~ /^$/;

# Ueberspringe nun alle leeren Zeilen:
$line = <STDIN> while $line =~ /^$/;

# Zeige die erste Zeile an, die auf die leere Zeile folgt:
chomp($line); print "First line: >$line<\n";