It's a little known fact that the Perl 5 parser will reject any input lines containing the string "Java". That's probably what's getting you.¹

Seriously, there's nothing obviously wrong with your program. I would suggest first trying to pin down whether the problem is with reading the file or outputting results. For instance, right after you close the filehandle, add: print "I got ", scalar(@lines), " from the file\n"; If you get one line, the problem's with the input, and if you get seven lines, it's with the output. At least that will split the program in two, and you can concentrate on half as much code.

Is there anything screwy with the file delimiters? Did you by chance copy it from, say, Unix to Windows in binary mode? Also, if your output is to a shell, try saving it in a file and seeing if there's any funny characters in there.

HTH

¹<voice type="cartoon" character="Foghorn Leghorn">That's a joke, son. Yuk it up.</voice>