Php expressions regulieres

$tab_num=split('[^0-9]', $texte);

foreach ($tab_num as $num)
{
         if ( ($num <=60) && ($num >=1) ){
                    //Patati, patata...
         }
}

#! /usr/bin/perl

use warnings;
use strict;

my $ch ='dsfds  45 dsfds 254 dsfsd 1-25 5,25,78,54,987 45454545 75487 et a la fin 05.';

print "avec grep\n\n";
print  grep { ($_ =~ /\d+/)?( $_ >= 1 && $_ <= 60 ):1 }
          split(/[^0-9]/,$ch),"\n";

print "avec map\n\n";
print map { if ($_=~/\d+/ && ( $_ >=1 && $_ <= 60)) { $_ .= " "} }
          split(/[^0-9]/,$ch),"\n";

print "\net regex\n\n";
while ($ch =~/(?<=\D)         # test arriere non chiffre
                ( 0?            # les cas 01...09 optionnel
                  [1-9]       # les cas 1..9
                  |           # ou
                  [1-5][0-9]  # les cas 10...59
                )
              (?=\D|$)          # test avant non chiffre ou fin de chaine
            /gx) {            # recherche progressive en contexte scalaire
            print "$1 dans la positon ",pos($ch) - 1,"\n";
}