grep open perl*delta.pod |grep =head