Select Code to Download

$main::stateIn{'address'} =~ s/(?<=[^\015])[\012\015](?=[^\012])/\015\
+012/g;

s/(?<=[^\015])[\012\015](?=[^\012])/\015\012/g;