Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
$sentence =~ /(?<!\S)\S+(?: \S+){$low,$high}?(?!\S)(?{
  print "START INDEX: @{[$` =~ tr| || ]} : $&\n"
  })(*FAIL)/;
  2. or download this
    START INDEX: 0 : this is
START INDEX: 0 : this is the
...
START INDEX: 4 : to play
START INDEX: 4 : to play with
START INDEX: 5 : play with