in reply to <code> tags and extra blank lines

On a related note; I've noticed that when using the "d/l code" link, a number of blank lines are added to the end. For example the following...

#perl use strict; use warnings; my @dataLines = <DATA>; print 'Number of data lines: ' . scalar @dataLines . "\n"; __DATA__ 1

...which was entered into the text box like this...

<CODE>
#perl
use strict;
use warnings;

my @dataLines = <DATA>;
print 'Number of data lines: ' . scalar @dataLines . "\n";

__DATA__
1
</CODE>

I would have expected the output to be "Number of data lines: 1" but actually prints "Number of data lines: 4".

Cheers,
Dom.

Update: Changed the actual number output to equal 4 not 3.