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

#gets all other names, if they exist
(my $others=$s)=~s/^(\w+ \w+)//;

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