$_ eq 'something' && push @y,$_ while <R>;