perl -d: add a test for s EXPR().