#!/usr/bin/perl -p

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

s/^/> /;