my ( $grepresult ) = grep { $_->[0] =~ m{\Q$SearchStr\E} } @cdata;