LINE: while (<STDIN>) {
  next LINE if /^#/ ;  # удаление комментариев
  .................
}