$ cat pm_1185726_heredoc_pod.pl
my $str = <<=cut;

=head2 Some documentation

=cut
$