#!/usr/bin/perl -w

use strict;

while(<>)
{
	die $_ unless /^(\d+) ([a-zA-Z0-9\/-]+) ([+-]\w*) ([a-zA-Z0-9._-]+@[a-zA-Z0-9._-]+)$/;
	my ($time,$list,$op,$addr)=($1,$2,$3,$4);
	print join(' ',($op=~/^\+/?'ezmlm-unsub':'ezmlm-sub'),$list,$addr),"\n";
}