relearning a little perl code to use with http://rexify.org