while( my $line  = @diff ){