Skipping blank lines while reading a flat file.

[Dave Thacker]

Perl 5.6  on linux

Given this test file.
------start---------
this

is

my file
--------end----------
I want to skip the blank lines and just print the lines with text, like this
this
is 
myfile

This is my test case code. 
#!/usr/bin/perl -w
use strict;

my $opt_testfile="test-text.txt";
open (TS, $opt_testfile) or die "can't open file";
while (<TS>) {
    chomp;
    next if ($_ =~ /^\s+/);
    print "$_\n";
}

I'm not skipping the lines.  My regex must be wrong.   Can someone show me my 
error please?

TIA
DT

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>