my @tokens = split //,$line;