#!/usr/bin/perl

use strict;
use warnings;

my $input_file = pop(@ARGV) or die "Please enter file name on command line\n";

open(my $input, "<", $input_file) or die "Could not open $input_file because $!\n";

while(<$input>) {
        my @line = split(/\s*\|\s*/, $_);
        print join(' | ', @line[0..1]) . "\n";
}
close ($input);