@row = map [ /\d/g ], <$lines>;