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