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

##</code><code>##

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