Select Code to Download

 #gets first two names
(my $twonames=$s)=~s/^(\w+ \w+).*$/$1/;

...

#deletes initial space
(my $alternativesearch=$others)=~s/^\s//;