Use a look-ahead:

$line = "{john{david{mary{{{{martin}";
$line =~ s/{(?=[{}])/{empty/g;
[download]

japhy -- Perl and Regex Hacker