my @array
        = sort { $a <=> $b }
  	  split ',',
  	  $string =~ 
            s/
              # fange die Bereichsangabe als zwei Gruppen bestehend aus Ziffern
              ((\d+)-(\d+))
            /            
              # ersetze durch Zeichenkette 
              # erzeugt durch join mit Komma 
              join ',', 
              # aus der Liste des ersten bis zweiten matches
              $2..$3
            /rgex;