in reply to Re^2: How do I cut single characters out of a string
in thread How do I cut single characters out of a string

substr $str, 5, 2, substr $str, 3, 2, substr $str, 5, 2;

I'll have to remember that next time I'm entering an obfuscated code contest.