while (<input>) {
m/^\n/ and next;
m/^\n/ and next;
...
}