my $re = qr/\Q$find/i;
my @lines = grep /$re/, @$data_ref;