my  @table2 =  map { join " ", (split / /, $_)[1, 4] } @table;