sub w(){$_[0]=~s/(\w+)/reverse $1/eg;$_[0];}

#!/usr/bin/perl
print w($ARGV[0])."\n";
sub w(){$_[0]=~s/(\w+)/reverse $1/eg;$_[0];}

sub w() {
   $_[0] =~ s/(\w+)/reverse $1/eg;
   $_[0];
}

l=letter
m=(~).l
t=takewhile
d=dropwhile
h(a,b)=(a++(reverse(t l b))++(t m(d l b)),d m(d l b))
f x=fst(limit(iterate h ([],x)))

Miranda f "Dies ist der 1. Testsatz!!einself!"
seiD tsi red 1. ztastseT!!flesnie!

l=letter
c=(#).takewhile l
h s i=i-c(drop(#s-i)(reverse s))+c(drop i s)-1,if l(s!i)
=i,if 1=1
f s=map(s!)(map(h s)(index s))

String o="",p[]=t.split("(?<=\\W)|(?=\\W)");for(String s:p){o+=new StringBuffer(s).reverse();}

A$=""
;----------------121 Byte
For i=1To Len(a)C$=Mid(A,i,1)d=Asc(C)
If d>64And d<91Or d>96And d<123
B$=C+B
Else
S$=S+B+C
b=""
EndIf
Next
S=S+b
;----------------
Print S
WaitKey

public class temp {
   public static void main (String[] arg) {
      System.out.println(Reverser(arg[0]));
   }
   public static String Reverser(String t) {
      String o="",p[]=t.split("(?<=\\W)|(?=\\W)");for(String s:p){o+=new StringBuffer(s).reverse();}
      return o;
   }
}

>javac temp.java

>java temp "Hallo Welt 123"
ollaH tleW 321

String o="",p[]=t.split("(?<=[^a-zA-Z])|(?=[^a-zA-Z])");for(String s:p){o+=new StringBuffer(s).reverse();}

String o="",p[]=t.split("(?<=[^a-zA-Z])|(?=[^a-zA-Z])");for(String s:p){o+=StringUtils.reverse(s);}

#include <iostream>
using namespace std;int main(){char c;while(1){string w;cin.get(c);while((c>='a'&c<='z')|(c>='A'&c<='Z')){w=c+w;cin.get(c);}cout<<w<<c;}}

#include <iostream>
using namespace std;

int main()
{
   char c;
   while(1)
   {
      string w;
      cin.get(c);
      while((c>='a'&c<='z')|(c>='A'&c<='Z'))
      {
         w=c+w;
         cin.get(c);
      }
      cout<<w<<c;
   }
}

import re
for x in re.findall("[a-zA-Z]+",s):
   s=s.replace(x,x[::-1]);

import re
def i(s):
   for x in re.findall("[a-zA-Z]+",s):
      s=s.replace(x,x[::-1]);
   print s

i("Dies ist der 1. Testsatz!!einself!")

import re
s="[INPUT STRING]"
for x in re.findall("[a-zA-Z]+", s):
   s=s.replace(x, x[::-1]);

A$=Input()For i=1To Len(A)C$=Mid(A,i,1)d=Asc(C)If d>64And d<91Or d>96And d<123B$=C+B Else S$=S+B+C B=""
Next Print S+B WaitKey

function w($s){($s-split"(?<=\P{L})|(?=\P{L})"|%{$_[-1..-$_.length]})-join''}

($a-split"(?<=\P{L})|(?=\P{L})"|%{$_[-1..-$_.length]})-join''

($args-split'(?<=\P{L})|(?=\P{L})'|%{$_[-1..-$_.length]})-join''

org 100h

mov di, string
mov si, di

mov ah, 1
read:
   int 21h
   cmp al, 13
   je @f
   stosb
jmp read
@@:

mov bx, di

mov ah, 2
revloop:
   lodsb
   cmp al, 65
   jb nonalpha
   cmp al, 122
   ja nonalpha
   cmp al, 97
   jae alpha
   cmp al, 90
   jbe alpha

   nonalpha:
   
   .revloop2:
      cmp bx, di
      je @f
      
      dec di
      mov dl, [di]
      int 21h
   jmp .revloop2
   @@:
   
   mov dl, [si-1]
   int 21h
   
   cmp si, bx
   je _exit   
   jmp revloop
   
   alpha:
   stosb
      
jmp revloop

_exit:
ret


string:

BF 3F 01 89 FE B4 01 CD 21 3C 0D 74 03 AA EB F7 89 FB B4 02 AC 3C 41 72 0C 3C 7A 77 08 3C 61 73 1A 3C 5A 76 16 39 FB 74 07 4F 8A 15 CD 21 EB F5 8A 54 FF CD 21 39 DE 74 05 EB D9 AA EB D6 C3

i equ int 33
c equ cmp al,
m equ mov
org 256
m di,e+1
m si,di
m ah,1
r:i
c 13
je f
stosb
jmp r
f:m bx,di
m ah,2
l:lodsb
c 65
jb n
c 122
ja n
c 97
jae a
c 90
jbe a
n:cmp bx,di
je g
dec di
m dl,[di]
i
jmp n
g:m dl,[si-1]
i
cmp si,bx
je e   
jmp l
a:stosb
jmp l
e:ret