#!/usr/bin/perl -w

use strict;
my @lines;
while( my $input = <> )
{
   if( $input =~ /^\s*$/s )
   {
      push @lines, $input;
   }
   else
   {
      print foreach @lines;
      print $input;
      @lines = ();
   }
}