print DESTINATION "old: $_$,new: $line\n";

Will work for that unless the value of $, has been changed (which is likely to cause lots of other problems, so I wouldn't worry about that case).

        - tye (but my friends call me "Tye")