Help for this page

Select Code to Download

Select or download this

open(FH,"</usr/bin/perldoc");
undef $/;
$_=<FH>;
map (($f[$c]=$_,print "$f[$c]", $c++), m/t(.*?)e/, m/wri(.*?)en/);

Select or download this
@f = (m/t(.*?)e/, m/wri(.*?)en/);