Select Code to Download

#23456789012345678901234567890123456789012345678
$b=join'',@{+pop};@_=@{+pop};$a={map{$_[$_],$_
[$_+1]}0..@_-2};$_=join',',grep$b=~s/\Q$_//g,
@_;s/(.)(?:,((??{"\Q$$a{$+}"})))+/$1..$+/g;$_