my $endofline = ( /\r\n$/ ) ? "\r\n" : "\n";

##</code><code>##

print OUTFILE "$processed_string","$endofline";