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