while (<$fh>) {
    if (m/^$/) {
        # rest ausgeben. aus der schleife springen
        print <$fh>;
        last;
    }
}