if( /\S/ ) {
            my @row= split ' ', $_;