sub is_dos_format { local $_; ... } # or sub is_dos_format { ... while (my $line = ) { ... }