@list = map { m/^-- (\d+) -+/; $1 }  @list;