$s =~ /(\d+)(?:to|thru|up to|\s*-\s*)(\d+)/;