$goodorg =~ s/\n//g;
    $goodorg =~ s/\r//g;