Извеняюсь, но может кто нибудь поможет мне перевести с PERL-а следующий код на PHP если это возможно...

sub OutS
{
    $_=shift;
    s|\{-(.*?)\-}|eval("sprintf('%s',\$$1)")|eg;
    print($_);
}