while( my $line = <> ) {
	last unless $line =~ /\S/;

	# ...
}