$textarea =~ s/\r//g;
#or
$textarea =~ s[\r\n][\n]g;