#! /usr/bin/perl -w
use strict;

my $fileName = $ARGV[0];
my @old;
my @new;

open (my $file, "<", $fileName);
while(<$file>)
	{
		my $line = $_;
		while($line =~ s/\|\|/\| \|/){}
		#print STDERR "OLD: $_\tNEW: $line";
		@old = split(/\|/, $_);
		@new = split(/\|/, $line);
	}

for(@old)
	{
		print STDERR "OLD: $_\n";
	}
print STDERR "\n";
for(@new)
	{
		print STDERR "NEW: $_\n";
	}