$s =~ s/$before/eval{$after}/e;