13-10-02 perl dot end