I posted the corrected code by mistake. The original version didn't have assertions.

$main::stateIn{'address'} =~ s/[^\015][\012\015][^\012]/\015\012/g;
[download]

The code with assertions works properly with single lines but fails with multiple blank lines.