#!/usr/bin/perl 

use strict;
use warnings;

my $num = join '|', map { "\\b$_\\b" } 0..57;
my $re_num = qr/($num)/;

while(<DATA>) {
    my $match = join ', ', m/$re_num/g;
    print $. . "\t=>\t" . $match . "\n" if $match;
}


__DATA__
Hallo,
ich möchte in einer größeren Textdatei alle Zahlen zwischen 0 und 57 mit Hilfe
eines regulären Ausdrucks finden. Gibt es da eine elegantere Möglichkeit als
/(0|1|2|3|"etc."|56|57)/g? Als Klasse, also [0-57] kann ich den Bereich leider
nicht definieren, da die einzelnen Zeichen ja nur einstellig sein können.

Vielen Dank
muol