# solange treffer gefunden werden
while ( $data[$t] =~ /(\S+)/g ){
    # wird jeder treffer in @test abgelegt
    push( @test, $1 );
}