use strict;
use warnings;

my $inFile = q{spw592594.dat};
open my $inFH, q{<}, $inFile
   or die qq{open: $inFile: $!\n};

while (<$inFH>)
{
    chomp;
    next unless $_;
    print qq{-->$_<--\n};
}

close $inFH
   or die qq{close: $inFile: $!\n};