while (<>) {
    chomp;
    my @a;
    @a = split if !/^==/;
    print "@a\n";
}

##</code><code>##

while (<>) {
    chomp;
    next if /^==/;
    my @a = split;
    print "@a\n";
}