for(1..1e6){$s+=$_ for/./g};print$s