Shell Programming and Scripting

#!/bin/perl
use strict;
use warnings;

my $LOGFILE = "/path/to/logfile/filename.txt";
open(LOGFILE, $LOGFILE) or die "Could not open log file :$!";
while (<LOGFILE>) {
   chomp;
   s/\(\d+\)//g; # remove the (n) part
   s#/([a-z]{2}=)#:::$1#g; # convert delimiter to :::
   my @fields = split(/:::/); #split using new delimiter
   print "$_\n" for @fields;
}
close(LOGFILE);

$ cat line.txt
(8)xx=1234/xyz/at=200802221200/cs=59278/(9)mt=image/gif/(9)bt=Mozilla/4
(8)zz=9999/abc/at=200902221200/cs=59278/(9)mt=text/html/(9)bt=Mozilla/4

perl -nle '(/^(\w+)=(\w+)/&&print "$1=$2")||(/^\w+$/&&print)||(/^\(/ && /(\w+)=(\w+)/&&printf "$1=$2/")foreach split /\//' < line.txt

xx=1234/xyz
at=200802221200
cs=59278
mt=image/gif
bt=Mozilla/4
zz=9999/abc
at=200902221200
cs=59278
mt=text/html
bt=Mozilla/4