my $pod = <<'=cut';

=head1 delete

...

=cut