while ( $data[$t] =~ /(\S+)/ ){
    push @test, /(\S+)/;
    }