treyharris · September 11, 2019 18:59
diff --git a/encoding_fun.txt b/encoding_fun.txt
 #!/usr/bin/env perl
 use strict;
 use warnings;
 use autodie;

 #use utf8;
 use PerlIO::eol;
 use open IN => ':raw:eol(CRLF?)';


 while (<>) {
  chomp;
  print "The line is '$_'.\n";
 }
	#!/usr/bin/env perl
	use strict;
	use warnings;
	use autodie;

	#use utf8;
	use PerlIO::eol;
	use open IN => ':raw:eol(CRLF?)';


	while (<>) {
	chomp;
	print "The line is '$_'.\n";
	}