irc2quotes

#!/usr/bin/perl -w

my $lastquot = '';
while(<>) {
	$quot = /<(.*)> (.*)/;
	$quot = $1;
	$line = $2;
	if($lastquot ne $quot) {
		print "»\n" if($lastquot);
		print "$quot: «";
		$lastquot = $quot;
	} else {
		print "\n";
	}

	$line =~ s/a'/à/g;
	$line =~ s/e'/è/g;
	$line =~ s/i'/ì/g;
	$line =~ s/o'/ò/g;
	$line =~ s/u'/ù/g;
	$line =~ s/\.\.\./…/g;
	print $line;
}
print "»\n";