evaluate perl; update test results
add more XXX's