while ( $tmpl_line =~ /\[OS_TMPLPLUGIN:(\w+):(\w+):(.*?)\]/g ) { my ($tpath,$tfunc,$tfval,$tpvalue) = ($1,$2,$3,'') ; if ( -e "pfad/Tmpl/$tpath/$tfunc.pm" ) { eval "require Tmpl::$tpath\::$tfunc" ; die "Fehler bei Einbindung Template-Plugin : Tmpl::$tpath\::$tfunc : $@\n" if ($@) ; my $tplg = $tfunc->new(\%CONFIG,\%PARA,$tfval); $tpvalue = $tplg->out ; }