my @a_str = split //, $line;