sub is_balanced { eval "qw($_[0]); 1" }