if($line =~ /\s*([a-zA-Z]+\s*)+\s*(-?\d\d?)\s*/) ^