conduit permit tcp host 192.168.1.1 eq www any (hitcnt=57476) 
conduit permit tcp host 192.168.1.1 eq 139 host 192.168.2.1 (hitcnt=2)

##</code><code>##

conduit permit tcp|host|192.168.1.1|eq|www|any|(hitcnt=57476)
conduit permit tcp|host|192.168.1.1|eq|139|host|192.168.2.1|(hitcnt=2)

##</code><code>##

#!/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";
}


##</code><code>##

conduit permit tcp|host|192.168.1.1|eq|www|any|(hitcnt=57476)
conduit permit tcp|host|192.168.1.1|eq|139|host|192.168.2.1