Help for this page
perl -ne '$x=/ou/..0; print if $x && $x-1 <= 3' data.dat
% cat data.dat one ... five six werwr