#!/usr/bin/perl -w

use strict;

my $in = "/home/trix/test";
my $out = "/home/trix/out";
use vars qw(@array @list);
use vars qw ($host1 $host2 $conduit $permit $tcpudp $ip1
	     $ip2 $eq $port $hitcnt $line);

open IN, "$in" || die "$!\n";
open OUT, ">$out" || die "$!\n";

while ($line = <IN>) {
    chomp $line;
    ($conduit, $permit, $tcpudp, $host1, $ip1, $eq, $port, $host2,$ip2, $hitcnt)=split( /\s/, $line);
    print OUT "$conduit $permit $tcpudp $host1\|$ip1\|$eq\|$port\|$host2\|$ip2\|$hitcnt\n";
}