Help for this page

Select Code to Download


  1. or download this
    my $sentence_rx = qr{
       (?: (?<= ^ ) | (?<= \s ) )  # after start-of-string or
    ...
           printf "\tgot sentence %d: <%s>\n", ++$count, $1;
       }
    }