in reply to Ignoring embedded POD

If you are using double quotes for the heredoc, you can just store the pod directives in scalar variables: 
my $pod   = '=pod';
my $head1 = '=head1'; 
print DOCFILE <<"DOCS";
$pod

$head1 NAME

$programName
...

DOCS

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: Ignoring embedded POD
by toolic (Bishop) on Jul 18, 2013 at 20:34 UTC
    Hashified... perlpod 
    use warnings;
use strict;

my %pod = map { $_ => "=$_" } qw(
    pod head1 head2 head3 head4 over item
    back begin end for encoding cut
);

print <<"DOCS";
$pod{pod}

$pod{head1} NAME

programName
...

DOCS

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom