while (<FILE>) {
  unless (1 .. 21) {
    # process the line - which is in $_
  }
}
[download]

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me