#!/usr/bin/perl -w
use strict;

my $firstNonBlankLine;
while ($firstNonBlankLine = <DATA>, $firstNonBlankLine !~ /\S/){}

print $firstNonBlankLine;

=prints
This first non-"blank" line
=cut

__DATA__



This first non-"blank" line

this is second non-blank line