&{sub{
           @_=split (/ /, shift);
print reverse split ( //, shift);
print                ' ', shift, ' ';
           @_=split ( //, shift);
      push @_,            shift().
                          shift,
                chr(ord(  shift)+8).
                chr(ord(  shift)+8).
                          shift,
                          shift;
print reverse split ( //, splice(@_,1,1));
print @_;                              }}   ('peek it please');