my $version_pod = <<'=cut'; =pod =head1 NAME HTML::Template::Compiled - Template System [...] =head1 VERSION our $VERSION = "0.57"; =cut # doesn't work with make tardist our $VERSION = ($version_pod =~ m/^our \$VERSION = "(\d+(?:\.\d+)+)"/m) ? $1 : "0.01";