#!/usr/bin/perl

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

do 
{
 print "$_";
} while (<>);