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

if (scalar(@ARGV) < 2) {
	print "usage: getconversation.pl <input-file> <output-file>";
	exit(0);
}

open(INFILE, "< $ARGV[0]") or die "Unable to open input file \"$ARGV[0]\": $!";
open(OUTFILE, "> $ARGV[1]") or die "Unable to open output file \"$ARGV[1]\": $!";

my $offset;
while (defined(my $line = <INFILE>)) {
	$line =~ s/(\d+)\:(\d+)\:(\d+)//;
	$line =~ s/\s*(\<.*\>)\s*//;
	print OUTFILE $line;
}
