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