Total Commander

[sa]

niknikursa
Включив Рег. выраж. можно, например, и так:
Маска для имени файла: Р [P]
Маска для расширения: [E]
Найти: ( .*)( .?).*( .?).*( .*)
Заменить на: $1$2.$3.$4

Add
Чтобы убрать пробел между инициалами, выражение для поиска записать так:
( .*)( .?).* (.?).*( .*)