Fallout from previous checkin; need to escape "-" in regexp for some versions of Perl, because it interprets it as a range.