while( my $line = <DATA> ) {
  print $line if $. % 5 == 0 || eof(\*DATA);
}



__DATA__
line one
line two
line three
line four
line five
line six
line seven
line eight
line nine
line ten
line eleven