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

my @zahlen=$string=~/\D([1234]?\d|5[0123])\D/gc;

$line =~ s!(\d+)!print("$1\n") if ( $1 < 58 )!eg;

my @zahlen=$string=~/\D([1234]?\d|5[0123])\D/gc;

use strict;
use warnings;

my @strings = ('foo 1 bar', '1 foo bar', 'foo bar 1');

for my $string (@strings) {
   print "$string\n" if $string =~ /\D0*([1234]?\d|5[0123])\D/gc;
}