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

##</code><code>##

  $name =~ s/\s.*//;  # replace space and all following characters with empty string

##</code><code>##

   $temp =~ s/\s/+ +/;