#!/usr/bin/perl -w
use strict;
use List::Util qw(shuffle);
s<^(\w?)(.+?)(\w?)$><print+(join('',$1,shuffle(split//,$2),$3,' '))>e for @ARGV;
print "\n";