my $text =$text[$line];                      
    $text =~tr/\x0c-\x0d//d;