#!/usr/bin/perl -w

use strict;

open(INP, "/usr/bin/diff ./newsite1.txt ./newsite2.txt |") or die "pipe: $!\n";

while (<INP>) {
    print substr($_,2) if (/^> /);
    print substr($_,2) if (/^< /);
}

close(INP);