while( my $line = @diff ){ ... }