my ($message,$email)=m{^-S\s* "([^"]*)" \s* (.*)}x;