$ perl -we'
my $names = join " ", ( "rita", "sue", "bob", "daisy" );
while ( $names =~ /(\S+)(?=\s*(\S*))/g ) {
    print "$1\t$2\n";
    }
'
rita    sue
sue     bob
bob     daisy
daisy