for (@lines) { if (//) { $_ .= $text; last; } }