perl -wE "say 1 + join(',','aa' .. 'zz') =~ tr/,//;"