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