my ( $keeper ) = grep /^Line 3 : /, @lines;