Help for this page

Select Code to Download


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