Replace CRLF with SPACE

replace_crlf_with_space.pl

use strict;
use warnings;
use open qw/:std :utf8/;

@ARGV = shift; # limit to one file at once

# $| = 1; # auto-flush buffer
# open my $out, '>:utf8', 'replace_crlf_with_space.txt';

my $next = <>;
while (my $line = $next) {
  $next = <>;
  if (defined($next) and $line !~ /^\s*$/) {

    # replace CRLF with SPACE
    # unless the following line
    # is made of " ", "=", "-", "_"
    $line =~ s/[\n\r]+$/ / if $next !~ /^(\s|=|-|_)\1*$/;
  }

  # print $out $line;
  print $line;
}