Besides what has been pointed out, the following:

substr($_,0,25);
[download]

doesn't do anything unless you assign it to something else. I assume you're trying to extract the first 25 characters from each line, then you want:

 $probe = substr($_,0,25);
[download]

Can't tell whether you're using "strict" from your post (the variable $probe indicates not).