Пара простых, совместимых с POSIX альтернатив:
Нерекурсивный (новые строки в базовом имени запрещены):
ls -F | grep '^\([0-9]\{4\}\)_\1/$' | xargs rm -fr
Рекурсивный:
find . -type d -exec expr {} : '.*/\([0-9]\{4\}\)_\1$' \; -prune \
-exec rm -fr {} + >/dev/null