$number = $1 if $string =~ m/(\d+):/;
print $number, "\n";