$ perl x Start p p: a Start c c: x c: xxxxxxxxxx p: b c: xxxxxxxxxx p: c c: xxxxxxxxxx p: d c: xxxxxxxxxx p: e c: xxxxxxxxxx p: xxxxxxxxxx