You get no results because your code doesn't compile.

$ perl -cw 1197885.pl 
Global symbol "$line" requires explicit package name at 1197885.pl lin
+e 8.
Global symbol "$line" requires explicit package name at 1197885.pl lin
+e 9.
Unrecognized character \x91; marked by <-- HERE after     $line .= <--
+ HERE near column 12 at 1197885.pl line 9.
[download]

Declare all your lexical variables and fix the dodgy characters in the source and see how far you get. I suspect that Print will be the next thing to bite you.