use strict;
use warnings;

{
	my $str = "abcd\r\n";
	$str =~ s/\r|\n//g;
	print "[$str]";
}

{
	my $str = "abcd\n";
	$str =~ s/\r|\n//g;
	print "[$str]";
}

{
	my $str = "abcd\r";
	$str =~ s/\r|\n//g;
	print "[$str]";
}