# skip the documentation
next
- if m/^=(?:head1|head2|pod|item|begin|for|over)/
- ... m/^=(?:cut|end)/;
+ if m/^=(?:head1|head2|pod|item|begin|for|over)\b/
+ ... ( m/^=(?:cut|end)\b/ || $. == 1 );
# skip the data section
last if m/^__(?:DATA|END)__$/;