$find will contain a newline, while $seq will not contain any whitespace.

That's never going to match. You may want to chomp $find first.