Help for this page

Select Code to Download


  1. or download this
    sub e{$a=$_;eval"\$a=~y/\Q$_\E/\0-~/";$a}

...

     }/\b[^ ]{$m,$n}\b/g
}
  2. or download this
    map{$x=e;$_,[grep{e eq$x}@{$_[4]}]}

" $_[0] "=~/ ([^ ]{$_[1],$_[2]})(?= )/g
  3. or download this
    map{$x=e;$_,[grep{e eq$x}@{$_[4]}]}

grep{/^.{$_[2],$_[3]}$/s}$_[0]=~/[^ ]+/g