sub is_integer_string { 
  return $_[0] =~ /^\s*\+\-?\d+\s*$/; 
}