perl -F',\s+' -lane '                                                     :( 
BEGIN { $" = ", " }
sub normalize {
  my ($start, $end) = split "/", $_[0];
  if ($start > $end) {
    $end = substr($start, 0, length($start) - length($end)) . $end;
  }
  $_[0] = "$start/$end";
}
sub unwind {
  return if $_[0] !~ m|/|;
  normalize $_[0];
  my ($start, $end) = split "/", $_[0];
  my @v = $start .. $end;
  $_[0] = "@v";
}
$" = ", ";
unwind($_) for @F;
print "@F";
' INPUTFILE