...
 open my $filehandle, '<', 'win.ini' or die "with style $!";
 
 while( <$filehandle> ) {
    if( (my @fields = /^\d+ | [^\t]+/xg) == 8 ) {
       print "all 8 elements found: @fields\n"
    }
 }
 ...