Select Code to Download

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