D:\>cat Demo.pl
#!perl
use strict;
use warnings;
open my $input_fh, '<:raw:perlio:encoding(UTF-16LE)', 'Input.txt';
while (my $line = <$input_fh>) {
chomp $line;
print "There's an unexpected/unwanted CR at the end of the line\n"
if $line =~ m/\r$/;
}
D:\>file Input.txt
Input.txt: Text file, Unicode little endian format
D:\>cat Input.txt
We the People of the United States, in Order to form a more perfect
Union, establish Justice, insure domestic Tranquility, provide for
the common defence, promote the general Welfare, and secure the
Blessings of Liberty to ourselves and our Posterity, do ordain and
establish this Constitution for the United States of America.
D:\>perl Demo.pl Input.txt
There's an unexpected/unwanted CR at the end of the line
There's an unexpected/unwanted CR at the end of the line
There's an unexpected/unwanted CR at the end of the line
There's an unexpected/unwanted CR at the end of the line
There's an unexpected/unwanted CR at the end of the line
D:\>
####
#!perl
print "Hello, world\n";
##
##
#!perl
use strict;
use warnings;
open my $input_fh, '<', 'Input.txt';
open my $output_fh, '>', 'Output.txt';
while (my $line = <$input_fh>) {
chomp $line;
print $output_fh "$line\n";
}