while ($line = <F>) {
  chomp($line);
  $line = rarely_called($line) if $asciify;
  ...
}