-# remove leading and trailing spaces
-$line =~ s/^\s+//;
-$line =~ s/\s+$//;
-$line =~ s/[{}]//g; # remove any braces
+$line =~ s/[<>()\[\]{}]//g; # remove any braces
+my @f = split /\s+/, $line;
return (1, $self->msg('emaile1')) if !$line;
$user = DXUser->get_current($call);
if ($user) {
return (1, $self->msg('emaile1')) if !$line;
$user = DXUser->get_current($call);
if ($user) {