Help for this page

Select Code to Download

Select or download this

    while ( <$fh> ) {
        print if /X/ .. /^\s*$/ and not /^\s*$/;
    }