#!/usr/bin/env perl
#
# just the actual text typed by the chatters from xchat logs

use warnings;
use strict;

while (<>)
{
  /^([A-Z][a-z][a-z] \d\d )?[\d:]+\s<[^>]+>\s+/ and print $';
}