$matrix = Math::MatrixReal->new_from_string(<<'MATRIX');
              [  1  0  0  0  0  0  1  ]
              [  0  1  0  0  0  0  0  ]
              [  0  0  1  0  0  0  0  ]
              [  0  0  0  1  0  0  0  ]
              [  0  0  0  0  1  0  0  ]
              [  0  0  0  0  0  1  0  ]
              [  1  0  0  0  0  0 -1  ]
              MATRIX