#!/usr/bin/perl
while ($_=<>) {
        unless (
                /^\s*$/||
                ...