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

18:14 >