ループの先頭に戻る
nextを使うとループの先頭に処理を戻すことができます。
while (my $line = <>) {
	next if ($line =~ /^\n/);
	next if ($line =~ /^#/);
	print $line;
}
関連項目
・nextループ制御コマンド・ループから抜ける
while (my $line = <>) {
	next if ($line =~ /^\n/);
	next if ($line =~ /^#/);
	print $line;
}