Просто дайте содержание сценария как аргумент после -e
:
find .... -exec perl -e '
$op = shift;
for (@ARGV) {
$was = $_;
eval $op;
die $@ if $@;
rename($was,$_) unless $was eq $_;
}' s/a/b/g {} +
Можно уплотнить его к:
find ... -exec perl -e '$op=shift;for(@ARGV){$was=$_;eval$op;die$@if$@;rename$was,$_ unless$was eq$_}' s/a/b/g {} +
Но это не помогает четкости.