use strict;
use warnings;

use Test::More tests => 2;

my $have = "foo\rbar\rbaz\r\n";
my $want = "foobarbaz";
$have =~ s/\s+$//;
isnt $have, $want, 'Not all carriage returns removed';
$have =~ s/\r//g;
is $have, $want, 'All carriage returns removed';