my $pattern='(\n\s*[0-9]{1,3}\s*\n\s*<page>\s*\n|\n\s*-[0-9]{1,3}-\s*\n\s*<page>\s*\n|\n\s*[A-Za-z]-[0-9]{1,3}\s*\n\s*<page>\s*\n|\n\s*page\s*[0-9]{1,3}\s*of\s*[0-9]{1,3}\s*\n)';