a glorified (not really) text replacement system in perl