while (1){ $_=; last if /CPU/; push @tmp, $_; }