Shell Programming and Scripting

Hi i want to ask how can i use perl and find a word in a text file, and also telling that which page doesn't it exist?

Eample: have a 10 pages text file, then i need to find 'Hello' in the file, and show that which page is it contain in.

Output: Hello contains 8 times in page 1, 3, 4, 7, 10

Code:

$page = $%;
while (@word)
	{
		while ( /(\w['\w-]*)/g)
		{
			# Increment the counter
			$seen{lc $1}++;
		}
	}

foreach $word (sort { $seen{$a} <=> $seen{$b} } keys %seen)
	{
		print "$word found $seen{$word} times on pages $page\n";
	}

i got something like that, but it is not working. can anyone please help me?
Thank you

What counts as a 'page'?

page = $%;
is this find out the page??
count for what page?

That works if you're using "write" and format while printing output, but not while processing input.

can u give me an example, because i don't really understand.
Thank you

I don't either. How do you know your input consists of 10 pages?

it just for example, of course i don't know.