$pattern='(\n\s*[0-9]{1,3}\s*\n\s*<page>\s*\n)';
if ($target_data =~ /$pattern/gi)
   {
$target_data =~ s/$pattern/" " x length($1)." " x length($2)." " x length($3)." " x length($4)/gie;
}
$pattern='(\n\s*-[0-9]{1,3}-\s*\n\s*<page>\s*\n)';
if ($target_data =~ /$pattern/gi)
    {
	$target_data =~ s/$pattern/" " x length($1)/gie;
}
$pattern='(\n\s*[A-Za-z]-[0-9]{1,3}\s*\n\s*<page>\s*\n)';
if ($target_data =~ /$pattern/gi)
    {
   	$target_data =~ s/$pattern/" " x length($1)/gie;
     }
$pattern='(\n\s*page\s*[0-9]{1,3}\s*of\s*[0-9]{1,3}\s*\n)';
if ($target_data =~ /$pattern/gi)
    {
   	$target_data =~ s/$pattern/" " x length($1)/gie;
    }