my @ttt = $ttt =~ /(\$sub\d+->\(.*\))?.*?\1/gs;