my $int = s/^(\d+\.)(\s+)(\w+)(\s+)(\w)(.)/$3$4$5/;
#            1      2    3    4    5   6

##</code><code>##

^(2.)( )(Kim)( )(W)(a)shington
 1   2  3    4  5  6

##</code><code>##

s/^\d+\.\s+(\w+\s+\w).*$/$1/;

##</code><code>##

13:08 >perl -wE "my $s = '2. Kim Washington'; $s =~ s/^\d+\.\s+(\w+\s+\w).*$/$1/; say $s;"
Kim W

13:09 >