my $data;
while ( <FH> ) {
    $data .= $_ if /^SOURCES/ || $data && /^\s/;
    last if $data && !/\S/;
    }
print $data;