[E|B,05.08.2004, 12:00]Bist du der FtR aus dem alten perl.de?
12
print&f(($_=(3x3)."3+33")=~s=3(?![^3]|$)=&f=eg);sub f{eval(@_?$_:"'$&+'x3");}