while (<DATA>){
  <DATA> && <DATA> if (/3/);
  print;
}

__DATA__
1
2
3
skipme
skipme
4
5

##</code><code>##

do {<DATA> for (0..$x)} if (/3/);