if ($str =~ /^(\w+\s+){2,3}(\d+)/) {
  $number = $2;
}