my $version_pod = <<'=cut'; =pod =head1 NAME Foo.:Bar - blah =head1 VERSION $VERSION = "0.71" =cut our $VERSION = "0.71"; ... sub __test_version { my $v = __PACKAGE__->VERSION; return 1 if $version_pod =~ m/VERSION.*\Q$v/; return; }