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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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