Select Code to Download

my $GrepResult = grep($_->[0] =~ /$SearchStr/,@cdata);

my ($GrepResult) = grep($_->[0] =~ /$SearchStr/,@cdata);

my ($GrepResult) = grep($_->[0] =~ /^$SearchStr$/,@cdata);

my ($GrepResult) = grep($_->[0] =~ /^\Q$SearchStr\E$/,@cdata);

my ($GrepResult) = grep($_->[0] eq $SearchStr,@cdata);

my ($GrepResult) = grep($_->[0] =~ /^$SearchStr$/,@cdata);

my $regexp = qr/^$SearchStr$/;
my ($GrepResult) = grep($_->[0] =~ $regexp,@cdata);