Select Code to Download

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

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

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