Help for this page

Select Code to Download

Select or download this

    foreach my $line (@data)
    {
...

        $file_data .= $line if ( $line =~ /\S/ );
    }