Quote Code (perl): (dl ) 1 2 3 while( my $line = @diff ){ ... }
1 2 3
while( my $line = @diff ){ ... }