+ my ($package, $version) = ();
+
+ while (<FILE>) {
+
+ # skip the documentation
+- if ( (m/^=(head1|head2|pod)/) .. (m/^=(cut)/) ) {
++ if ( (m/^=(head1|head2|pod|item)/) .. (m/^=(cut)/) ) {
++ next;
++ }
++
++ if ( (m/^=(over)/) .. (m/^=(back)/) ) {
+ next;
+ }
+
+@@ -88,7 +91,7 @@
+
+ if (
+ ($package) &&
+- (m/^\s*\$VERSION\s+=\s+/)
++ (m/^\s*\$VERSION\s*=\s+/)
+ ) {
+
+ # first see if the version string contains the string
+@@ -107,6 +110,9 @@
+ }
+