require Text::Unidecode if $asciify;

while ($line = <F>) {
  chomp($line);
  $line = Text::Unidecode::unidecode($line) if $asciify;
  ...
}