# the substitution is none in effect, it just digs around
$page2 =~ s|<title>(.*)</title>|${my_count(\$1)}|gi;
my matches = ();

sub my_count {
 my $occurance = shift;
 push @matches, ${$occurance} ;
 return $occurance;
}

# see what we've got
foreach (@matches) {
 print '<li>'.$_.'</li>'."\n"; # just to format the output :-)
}