package Mooooo;

use Modern::Perl;

sub _analyse_ph {
          my $self = shift;
          my ($arg) = shift;
          chomp $arg;
          return "<!-- ### $arg ### -->";
};

sub new {
        my $this = shift;
        my $class = ref($this) || $this;
        my $self = {};
        bless $self, $class;
        return $self;
}
 
my $Self = Mooooo->new;


my $text;
while ($text = <DATA>) {
        $text =~ s/__([-_\.a-zA-Z]+?(?:\(.+?\))*)__/$Self->_analyse_ph($1)/gme;
        say $text;
}

1;

__DATA__
__article.reldate.dayofmonth.html_selectscalar(0,1,31,article_reldate_dayofmonth)__
__article.reldate.month.html_selectscalar(0,1,12,article_reldate_month)__
__article.reldate.year.html_inputline(6,4,article_reldate_year)__
__article.id__
__article.autor__