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