use strict;
use warnings;

my $acc;
while ( <> )
{
    chomp;
    if ( m{^;} )
    {
        $acc .= substr $_, 1;
    }
    else
    {
        print $acc, qq{\n} if defined $acc;
        $acc = $_;
    }
}
print $acc, qq{\n} if defined $acc;

##</code><code>##

;ddadadwaew
sddjdsoeugfuiegf
euefuefuerfefg
;erreuruyegfegr
ueyrueuefeyr7e

;
;
erieihir
eiereyrgueyrgh
;ieruherueu
;ierhueryugr
reieruyeruy