for those interested here is the script I used to transform the CB-log saved from
http://pthbb.org/cb/last.cgi into a readable post.
open $cb,"<","/tmp/cb.txt";
#- whole conversation into one string
my $slurp=do {local $/,<$cb>};<P>
#- split into single chats
my @chatters=split /^\s*$/m, $slurp;
for my $chat (reverse @chatters) {
my (undef,$head,@text)=split /\n/m, $chat;
#- print head
my ($date,$time,$author)=split /\s+/,$head;
print "<tt>", "[[$author]] $time", "</tt><br>\n";
#- /me text to italic
if ($text[0]=~s/^\/me/[$author]/){
unshift @text,'<i>';
push @text,'</i>';
}
#- named links
for (@text){
s# (\w+) \( (http://.*?) \) #[$2|$1]#xg
}
#- print text
print join "\n",@text;
#- print separator
print "\n<p>\n\n";
}