sub main { 
  my $blah; 
  if ($blah =~/(\d+)\s{2}/) { 
    my $test = $1;  
  } 
}