while (my $token = $p->get_tag("font")) 
{
	my $text = $p->get_trimmed_text("/font");
	print $text."\n\n";
  	
	if($text =~ /Page 1 of (\d+)/)
	{
		print "\n\nNumber of Pages: $areaCode$1\n\n";
	}

##</code><code>##

Pageá1áofá3