#!/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;