perl pion scripts for uri stems