# 48 * 3 = 144 chars
sub GOLF {
#23456789012345678901234567890123456789012345678
my$l=join'',@{+pop};my$a=pop;$l=join',',grep$l=~
s/\Q$_//g,@$a;$a={map{$$a[$_],$$a[$_+1]}0..@$a-2
};$l=~s/(.)(?:,((??{"\Q$$a{$+}"})))+/$1..$+/g;$l
}