simple 3ds parser in perl