letter mix

[mexnix]

I was looking at premchai21's perlmonk web site, and was decided to go on a quest to sharpen my perl skills. I'm sure this can be done better, and I would love the input. This takes every 2 letters and reverses them.

#!perl -w

use strict;
my $data1 = <DATA>;
my @data2 = split(/(\S.)/, $data1);
foreach my $thn (@data2) {
    $thn =~ s/(\S)(\S)/$2$1/;
}
print @data2;
__END__
[e-mail]