01: #!/usr/bin/perl -pi.bak
02: undef $/;

03: chomp;    
04: @splited=split /(\d+)/;

05: for (@splited)
06: {    
07:  unless (/^\d+$/)
08:   {
09:      $value = $_;
10:   }
11:   else 
12:   {
13:       $lines{$_} = $value;
14:   }
15: }

16: foreach $key (sort {$a <=> $b} keys %lines)
17: {
18:    print "<\$^{$key}\$>";
19:    @chars = split /( )*/, $lines{$key};
20:    for (reverse @chars)
21:    {
22:      SWITCH: {
23: # Vokale
24:      /'/  && do {$Vok = "_a"; last SWITCH;}; # Qamaz '
25:      /"/  && do {$Vok = "_a"; last SWITCH;}; # Qamaz "
26: # ... mehr Vokale
27: # Konsonaten : Fehlerquelle  <<<<
28:      /a/  && do {print "'$Vok";  undef $Vok; last SWITCH;};  # Aleph
29:      /b/  && do {print "b$Vok";  undef $Vok; last SWITCH;};  # Bwet
30: # ... mehr Konsonanten
31:          }
32:    }
33:    print ":\n\\\\\n";
34: }