Re: letter mix

[btrott]

in reply to letter mix

Couldn't you just do this?

    $data1 =~ s/(\S)(\S)/$2$1/g;

This takes two non-space characters in a row, and swaps them.

Perhaps it has slightly different behavior than yours, though. I only tested it on your example.

[mexnix]

I assumed that you had to split every 2 letters, then regex them so that they all swicthed. You know what happens when you assume things...

__________________________________________________
%mexnix = (email = > "[e-mail]", website => "http://mexnix.perlmonk.org");