$line = $array_value;
$_ = $line;
/^(.?)\n/;
print $1.$2.$3."\n";
##

##

$line =~ tr/\015//;

$line =~ tr/\n//;

$line =~ tr/\r//;