#!perl -p
s/[-*1]//g;
s/(.)(.*?)\1/\2/g;
s/(.)(.*?)\1/\2/g;
s/(.)(.*?)\1/\2/g;
s/../ijk$&/;
s/(.)(.*?)\1/\2/;
s/(.)(.*?)\1/\2/;
s/(.)(.*?)\1/\2/;
s/^$/1/