תילאוזיו תירביל יצקנופ יל שי
sub HebSwap {
my $HebString = shift ;
$HebString =~ s
; reverse($1)/eg/([ת-א][>-<]!?)(+[w\s\])([ת-א][>-<]!?)/
$HebString = reverse($HebString) ;
return $HebString ;
}
יגת תכפוה איהש היעבה לבא
html
:אציש המ הזש הככ
<טסקטה>