#!/usr/bin/perl -p

s, %OURUSER% \+ [-+/0-9a-z]* \@ (\Q %DOMAIN% | %SLIMYDOMAIN \E) \b
		 ,%OURUSER%+?\@$1,igx
	unless m/^$/..0;

s/^/> /;