#!/usr/bin/perl
use warnings;
use strict;

while (<DATA>)
{ 
   if (/^\s*\(\d+\).+Significant Accounting Policies/)
   {
      print;  #this is the SAP heading line
      print  while (defined ($_ = <DATA>) and $_ !~ /^\s*\(\d+\)/);
   }
}


__DATA__