Remove Blank Lines

while(my $line = <DATA>) {
        print $line if ($line=~/\S/);
}


__DATA__
    <book>

      <name>Perl Programming</name>


      <author>XYZ</author>

      <info>

        <pages>150</pages>

        <description>A Complete programmer guide</description>

        <price>850</price>

      </info>

    </book>