Re: grep and find file weirdness

[japhy]

Yes, the is_dos_format() is smashing $_ in your grep block. The easy fix is to either local()ize $_ in the function or use a different variable in your while loop:

sub is_dos_format {
  local $_;

  ...
}

# or

sub is_dos_format {
  ...
  while (my $line = <RJA>) {
  ...
}