[% IF %]
[% IF %] zigaga
[% PERL %] my $xyz = /fis/i; if (3) { if (4) { print "blah\n"; } } [% END %] [% END %] my $abc = 'howbie'; # zounds it's a comment my $r = m/regex here/; [% IF %] [% PERL %] my $abc = 'howbie'; =hmm my $abc = 'howbie'; # zounds it's a comment my $r = m/regex here/; =cut # zounds it's a comment my $r = m/regex here/; [% END %] my $abc = 'howbie'; # zounds it's a comment my $r = m/regex here/;