Help for this page

Select Code to Download

Select or download this

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

18:14 >