Select Code to Download

'      nnn   <page>   '
'    - nnn - <page>   '
'      A-nnn <page>   '
'  page nnn of mmm    '

my $pattern = qr[
    (
...
            \n\s*  page \s* [0-9]{1,3}  \s* of \s* [0-9]{1,3}  \s*\n
    )
]x;