Select Code to Download

abc
The pattern follows 
<page> 24 

def

$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;
    }