#!/bin/bash
perl -pe 's/([a-z])(?!\1)(?i:\1)//g' <<< "foObar"