#    my @TMP1 = split ( // , $var);
#    $var = join ( "" , @TMP1);