my $pattern='(</TABLE>\n\s*[0-9]{1,3}\s*\n\s*<page>\s*)(.*)(\n*)';
$target_data =~ s/$pattern/$2." " x length($3)/gie;