#!/usr/bin/perl -w
#
#

while(<>)
{
    last if ( /^\s*$/ );
}

print <>;