my $test = '__article.reldate.dayofmonth.html_selectscalar(0,1,31,article_reldate_dayofmonth)__';
if ($test =~ /__([-_\.a-zA-Z]+?(?:\(.+?\))*)__/) {say $1}