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