my $replacement = "##"; $multiline_data =~ s/\n\r?/$replacement/g; print $multiline_data; ... my $read_data = ; $read_data =~ s/$replacement/\n/g;