$string = "qwerty 12345";
$string =~ m/([1-5]*)/;
print $1;