#!perl -pl
$_+=s/.(??{$&^$"})//?redo:!$_