#!perl -p
s;((??{$1gt$'}).)*(.)(?1)*$;$2