use strict;
use warnings;

my $line;

open IN,"lines.txt";

while($line = <IN>)
{
   print $line unless(!($line =~ /\w+/));
}