Switch to <%perl> blocks in ShowRecord for easier reading

No functional change.