$foobar='D';
$sep = chr(1);

@array = ('A','B','C','D');
if (($sep.join($sep,@array).$sep) =~ m/$sep$foobar$sep/) {
   print "Found a $foobar in \@array!";
}