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