$a = '31-52 27-50'; @a = sort split /\s|-/, $a;
print $a[3] - $a[0]," or ",$a[2] - $a[1],"\n";