#!/usr/local/bin/perl

## insert marker in pos lexicon

use strict;
use warnings;

my $fileName = shift;

open(IFILE, $fileName) or die("Couldn't open the file $fileName\n");

while(<IFILE>){
	s/^(.+) (.+)$/$1 | $2/;
	print $_;
}
close IFILE;