הודעה בפורום

2 1	:םש
23:20 20/04/01	:ךיראת
df	:אשונ

:העדוה

sub HebSwap {
my $HebString = shift ;
$HebString =~ s
![א-ת])([\w\s]+)(?![א-ת])/; reverse($1)/eg
; (HebString = reverse($HebString$
return $HebString ;
}