perl -ne '$x=/ou/..0; print if $x && $x-1 <= 3' data.dat