I'd do something like:

my $full_line = '';
while ( my $line = <FH> )
{
    chomp $line;
    next if substr( $line, 0, 2 ) eq '//';
    $full_line .= " $line"; # space wanted? your call!
    next unless substr( $line, -1, 1 ) eq ';';

    #do something with $full_line
    print "$full_line\n";

    $full_line = '';
}
[download]

    $full_line .= $full_line eq '' ? $line : " $line";
[download]

Update^2: I should have said this has been tested and produced the following with your sample data:

some code;
more code;
some very long long long code;
[download]

Something like this would do it:

my $line = '';
while( <$fh> ) {
    next if m[^//];
    $line .= $_;
    if( $line =~ m[;\Z]m ) {
        ## process line or push ta a array
    }
}
[download]