#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my $string = '1-3,5,9,2-4,11-22,5,7';

# Ersetze Bereich durch einzelne Zeichen
# benutzt Ausführung von Perl in Ersetzungsteil des Regex
$string =~ s/((\d+)-(\d+))/join ',', $2..$3/ge;

# da numerisch nacheinadner gedruckt werden soll:
my @array = sort {$a <=> $b} split ',', $string;

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;