While you're at it, check out this one. I used a regex to do exactly that. Sort of. Re: regex to reverse string

Added: Also see Far More Than Everything You've Ever Wanted to Know about Prototypes in Perl to see just exactly how borked up your use of a prototype is. Snip that off swap() you scoundrel!