my @items = map { /^=item (.*)/ ? $1 : () } split /\n/, <<'=cut';

=begin

=over 4

=item Hello

The first item must always be C<Hello>

=item World

The second item must always be C<World>

=back

=cut

print "Items: @items\n";