Help for this page

Select Code to Download


  1. or download this
    my $int = s/^(\d+\.)(\s+)(\w+)(\s+)(\w)(.)/$3$4$5/;
#            1      2    3    4    5   6
  2. or download this
    ^(2.)( )(Kim)( )(W)(a)shington
 1   2  3    4  5  6
  3. or download this
    s/^\d+\.\s+(\w+\s+\w).*$/$1/;
  4. or download this
    13:08 >perl -wE "my $s = '2. Kim Washington'; $s =~ s/^\d+\.\s+(\w+\s+
+\w).*$/$1/; say $s;"
Kim W

13:09 >