perl -ne '$|=1; foreach $_ (split //) {print; select(undef,undef,undef,0.01);}' [filenames...]