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