wine@localhost]$ perl -pe 's/(a)[^\1]*\1/check/g'
abbbba abbbbbbbba
check