%args> $arg => 'a' %args> <%init> $arg =~ s/^(.{1}).*$/-$1/; %init> <%perl> my $out = $m->comp("/include/system:netcvdiag", arg => $arg); $out =~ s/^\s*//g; $out =~ s/>/>/g; $out =~ s/</g; %perl>
<% $out %>