my $lines = join "", <DATA>;
$lines =~ s/\n\n=/=/gm;
print $lines;
__DATA__
line 1

======
line after break line