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.

Replies are listed 'Best First'.
Re: Re: letter mix
by mexnix (Pilgrim) on Jun 16, 2001 at 01:44 UTC
    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 = > "mexnix@hotmail.com", website => "http://mexnix.perlmonk.org");