Regexp в Perl S///

[spyderDFX]

помогите плз, как добиться многократного выполнения регекспа вида s/// без /g и без циклов?