$str = "2344rsfsdfewr324wsefare65j34ja3644wk7we45ke5rjy4e575564";
@result = grep { 123 <= $_ and $_ <= 4567 } $str =~ m/(\d+)/g;
$, = ', '; print @result;