use strict;
use warnings;


$_ = 'Page 1 of 5';

if(Page\&nbsp\;1\&nbsp\;of\&nbsp\;(/d+))
{
print "Number of Pages = ".$1;
}


__OUTPUT__
Backslash found where operator expected at test.pl line 9, near "Page\"
Backslash found where operator expected at test.pl line 9, near "&nbsp\"
        (Missing operator before \?)
Backslash found where operator expected at test.pl line 9, near "1\"
        (Missing operator before \?)
Backslash found where operator expected at test.pl line 9, near "&nbsp\"
        (Missing operator before \?)
Backslash found where operator expected at test.pl line 9, near "of\"
Backslash found where operator expected at test.pl line 9, near "&nbsp\"
        (Missing operator before \?)
syntax error at test.pl line 9, near "Page\"
Search pattern not terminated at test.pl line 9.