use warnings;
use strict;

my $p = '
==pod

==head1 NAME

programName
...

==cut
';

$p =~ s/^==/=/g;

print "$p\n";