$x = eval qq("$x")
    while $x =~ m!\$!;