my ($match) = /^(?:[^\1]*)(.)(?:[^\1]*)$/;