#!perl -p
eval's/\b$a[-$|--]\b/a$a[-$|]/;'x2while@a=sort{$a-$b}/\b\d+/g;s/a//g