#!/usr/bin/perl
require "cfilter.pm";

#==============================================================================#
package main;
#==============================================================================#
my $vwords = CFILTER::new();
open(IN,"$ARGV[0]");
my $aline; while($aline=<IN>) {
	my @os = CFILTER::cfilter($vwords,$aline);
	if(@os) { print join("|",@os)."|";}
}
close(IN);