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