Do not use the // operator, so we can support perls before 5.10

Also added test case to cover our home-grown __dor() function.