RTFM

[srawls]

This script scans the perl documentation to find what it needs. I got this idea from this thread. Here we go ...

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";

Update:Changed first line so left side would read "japh"

The 15 year old, freshman programmer,
Stephen Rawls