| ר ןדיע | :םש |
|---|---|
| 22:14 19/02/01 | :ךיראת |
| ןורתפ | :אשונ |
הרזע ךירצש ימש םינעוטש ולא לכל ,לכ םדוק
!?ללכה הזה םורופה דעונ המ ליבשב זא ,ומצעב לכה רותפל ךירצ
אל םתא םאו ...ךירצש ומכ תונעל היעבה המ ןיבמ אל תמאב ינא
.ונעת לא זא ,םיעדוי
(ןויער תוחפל םכל שי ןכ םא הלא)
.תונולת הז דיגהל םכל שיש המ לכ םע דוחייב
...ךליבשב ןורתפ יל שי ,םתוי
רמשנ הזו ,תונוש תוביסמ ןמז המכ ינפל הז תא יתבתכ
םא חוטב אל לבא ,ישומיש יד ...זאמ ילצא
.הרקמ לכל םלשומ ןורתפ הז
$CurrentLine = 0;
foreach (@WholeText) {
$InvLine = reverse;
#Set to reversed line.
$InvFile[$CurrentLine]= "$InvLine";
#Ignore numbers and percents.
$InvFile[$CurrentLine] =~
s/(\%?\d+)/reverse$1/eg;
#Ignore english words
$InvFile[$CurrentLine] =~
s/\b([a-zA-Z]+)\b/reverse $1/eg;
$InvFile[$CurrentLine] =~ tr/()/)(/;
#Add an HTML line break.
$InvFile[$CurrentLine] .= "<R>";
#Add a 'physical' new line.
$InvFile[$CurrentLine] .= "\n";
$CurrentLine++;
}