$s =~ /(\d+)(?:to|thru|up to|\s*-\s*)(\d+)/; [download]
In reply to Re: extract numbers from unformatted text strings by davidrw in thread extract numbers from unformatted text strings by punch_card_don