use FileHandle;

$fh = new FileHandle '<input.txt';

$in_body = 0;

while (<$fh>) {
        if ($in_body) {
               
                if (m{SUMMARY.*?>}i) {
                        $in_body = 0;
                } else {
                        ($row1, $row2) = split ;
#                       print "$row1", "\t",  "$row2" , "\n";
                        print;
                }
        }
        elsif (m{/SUMMARY.*?>}i) {
                $in_body = 1;
#               print;
        }