if ( defined $end_tag && ! defined $end_tag ) {
    # do something
}

##</code><code>##

my @stuff = qw(one two three);
my $length = (@stuff.length)/10;
print $length;