I'm sure there are several ways to shorten that, if anyone wants to play Perl Golf on it.

(Note that the original question said "for a string" not "for all strings", so I'm not adding a final g to the above, even though that would probably match what they really wanted as opposed to what they asked for.) ;)