{ print $2"|"$3"|"$7 }

##</code><code>##

awk '{print $2"|"$3"|"$7}' web.log | perl parselog.pl

##</code><code>##

while (<>) {
 chomp;
 my ($time, $date, $expo) = split /\|/;
 print "$time, $date, $expo\n";
}