#!/usr/bin/perl

my $file = $ARGV[0];

open(FILE, "<$file");

while(<FILE>) {
    if($_ =~ /^(---|\+\+\+) /) {
        $_ =~ s/ [A-Za-z]:/ /; # remove drive letters
        $_ =~ s:\\:/:g; # convert backslashes to forward slashes
    }

    $_ =~ s/\r\n/\n/g; # convert DOS newlines to unix-style

    print $_;
}
close(FILE);