my ($fname, undef, $sname) = $xmas->{'fromName'} =~ /(\w+)( +|\Z)(\w*)/;