There are two issues here.

• Make sure NOTES is closed and opened for reading 're you reach $fromfile
• You probably forgot to chomp a newline.

Try this:

.
.
while (<NOTES>){
  print "Found 'test'\n" if (/test/);
}
[download]

It is more robust regarding newlines, other characters or other text.

Hope this helps,

Jeroen
I was dreaming of guitarnotes that would irritate an executive kind of guy (FZ)