tests for ().perl/().item.perl, RT #117425