perl -E"$_%1000 or say 'Here'. $_ for 1..1e6" | buf | less