push @nicks,$1 while $name=~s/"([^"]*)"//s;
$name=~s/\s*$//s;
$name=~s/^(\w+)\s+(\w+)$/$2 $1/s if !$iscompany;
- (my $nick=$name.(!$attr ? "" : ".$attr"))=~s/\s+/./gs;
- push @nicks,$nick;
+ push @nicks,$name;
+ for (@nicks) {
+ $_.=".$attr" if $attr;
+ s/\s+/./gs;
+ }
map({
"nick"=>$_,
"obj"=>Mail::Address->new($name,$mail),