# Simple strip ShoutMix data
# - jiinjoo 28/12/2011
# Do whatever you want with it.
# Instructions http://wp.jiinjoo.com/?p=1061

while (defined($line = <STDIN>)) {
	chomp($line);
	#print "$line\n";
	
	if ($line =~ /\<li id=\"p([0-9]+)\"/) {
		print "$1\t";
	}
	elsif ($line =~ /\<cite\>(.*)\<\/cite\>/) {
		print "$1\t";
	}
	elsif ($line =~ /\<q\>(.*)\<\/q\>/) {
		print "$1\t";
	}
	elsif ($line =~ /\<dd class=\"date\"\>(.*)\<\/dd\>/) {
		print "$1\t"
	}
	elsif ($line =~ /\<dd title=\"(.*)\" .*\<\/dd\>/) {
		print "$1\n"
	}
}