eg% peg -z "/^sub \w+/" foo *pm