elsif ( $line =~ /\^+/xms ) { push @all, @temp2; @temp2 = (); }