in reply to find acronyms in a text

you use $FILE as filehandle, but reading from FILE, which is not the same

try while<$FILE> instead.

In Section Seekers of Perl Wisdom