my $prev;
while (my $line = <>) {
    chomp $line;
    print $prev, "\n" if defined $prev && $line !~ s/^;/$prev/;
    $prev = $line;
}
print $prev, "\n" if defined $prev;