This substitution:

  $name=~s/(\w)(\s)(\w)/$1/eig;
[download]

is only removing the space and the first character of the second word. What you want instead is something like this (note that capturing parens are not needed):

  $name =~ s/\s.*//;  # replace space and all following characters wit
+h empty string
[download]

And you better read up on your regex qualifiers -- the "eig" at the end of that substitution is completely unnecessary:

• "e" means treat the replacement string as executable code -- I don't think that's what you really want
• "i" means use case-insensitive matching -- but you have no upper or lower case letters in the right-hand side (the match) part of the s/// operator
• "g" means apply the match/replacement globally -- but your sample input suggests that a single application will suffice.

update: forgot to mention, the first substitution could be a lot simpler as well -- again, no capturing parens needed:

   $temp =~ s/\s/+ +/;
[download]