everything from chaos

isobel:~ adam$ perl -le 'for(split//,shift@ARGV){$r++;read(STDIN,$c,1);if($c=~/$_/i){print "$c (read $r bytes)";$r=0;next}redo}' everything </dev/urandom 
E (read 70 bytes)
v (read 388 bytes)
E (read 15 bytes)
r (read 166 bytes)
y (read 186 bytes)
T (read 180 bytes)
H (read 130 bytes)
I (read 21 bytes)
n (read 56 bytes)
g (read 49 bytes)