$_ = "Page 1 of 47";
if (/Page 1 of (\d+)/){
    print "Number of Pages = $1";
}