if ( s/^(\S+)\s+// ) {
    my $name = $1;
    ...