undef $/; my @diffs = diff([split /\s+/, ], [split /\s+/, ]);