テキストファイルから特定の行だけ抽出する Perl ワンライナー

% perl -le 'print for 1..1000' > hoge.txt
% perl -wne 'print if 1..200' hoge.txt > hoge1-200.txt
% perl -wne 'print if 201..250' hoge.txt > hoge201-250.txt
% wc -l *
1000 hoge.txt
 200 hoge1-200.txt
  50 hoge201-250.txt
1250 total

[関連]
split コマンドでファイルを指定した行数で分割する - ablog