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