Select Code to Download

use strict;
my $str = "abc dddd     10 ";
...
else {
  # do something with unexpected record
}

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