#!/usr/bin/env perl 
use strict;
use warnings;

my @line = <DATA>;
print "OMG, line 7 is missing/blank!!!\n" unless $line[6] =~ /\S/;

__DATA__
1
2
3
4
5
6

8
9