use strictures;
use autodie qw(:all);
my $infile = 'crlf.txt';
my $outfile = 'out.txt';
open my $in, '<:crlf', $infile;
open my $out, '>:raw', $outfile;
while (<$in>) {
    chomp;
    printf {$out} '%-200s', $_;
}
close $in;
close $out;