$Uni  =~ tr/"//;       # trailing 'd' has no meaning here
    $line =~ tr/"//;       # this deletes all " characters