split$",`man$"$^Xop`,$^F;splice@_,$(;
$j=(`man$"$^Xfunc`=~/(?<=program.  )(.{4})/g)[$-- --$^F];
$a=(`man$"$^Xtoc`=~/(?<=5)(.{7})/g)[215];
$p.=substr$_[$[],$_+$^F,$(for(++$....$]);
$h=(`man perlfaq1`=~/(?<=$^X$")(.{6})/g)[10];
print "$j $a $p $h\n";