#!/usr/bin/perl

while (<>) {
    next if m{^\Q<?xml version="1.0" encoding="UTF-8"?>} ...
            m{</table>};
    print;
}