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

##</code><code>##

use List::Util qw( first );

my $keeper = first { /^Line 3 : / } @lines;