in reply to french character in input file.

Seems to me that the next if $. == 1; should be preventing processing of the first line, regardless of whether it has any freedom-hating* characters.

* It's a joke, people.

Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom