print "Content-Type: text/html; charset=utf-8\n\n";

my (@arr1) = (
"ldt",
"b05dcc00",
"mny",
"b05can03*n0b5",
"b05mdd04*n9c9" );
					
my (@arr2) = (
"/* To start: b05afn10ud0b0 */",
"/* To start: b05dcc00ud0c0 */",
"/* To start: b05ldt10ud0e0 */",
"/* To start: b05dcc10ud0i0 */",
"/* To start: b05afn10ud0m0 */",
"/* To start: b05afn10ud0s0 */",
"/* To start: b05mny00ud0b5 */",
"/* To start: b05mny00ud0d3 */",
"/* To start: b05mdd04un9c9 */",
"/* To start: b05ahn00ud0j5 */",
"/* To start: b05mny00ud0m7 */",
"/* To start: b05can03un0b0 */",
"/* To start: b05can03un0b5 */ " );
					
foreach my $line1 (@arr1)
{
  chomp($line1); # clear \n if data is from file
  $line1 =~ s/^\s+//; # remove leading whitespace
  $line1 =~ s/\s+$//; # remove trailing whitespace
  if ($line1 ne "") # proceed only if something in $line1
  {
    print "Search [$line1]....<br>";
    foreach my $line2 (@arr2)
    {
      chomp($line2); # clear \n if data is from file
      $line2 =~ s/^\s+//; # remove leading whitespace
      $line2 =~ s/\s+$//; # remove trailing whitespace
      my ($data) = ($line2 =~ m/\/\*(.*)\*\//si); # extract anything within /* */
						
      my ($name, $value) = split( /\:/, $data ); # split separator char :
      $value =~ s/^\s+//; # remove leading whitespace
      $value =~ s/\s+$//; # remove trailing whitespace
						
      if ($line1 =~ /\*/) # check if $line1 contain special char
      {
        my ($part1, $part2) = split( /\*/, $line1 );
        if ($value =~ m/$part1(.*)$part2/i) # /i make it incase sensitive
        {
           print "match $line2<br>";
        }
      }
      else
      {
        if ($value =~ m/$line1/i)
        {
           print "match $line2<br>";
        }
      }
    } # // foreach $line2
    print "<br>"; # print empty line
  }
} # // foreach $line1

##</code><code>##

Search [ldt]....
match /* To start: b05ldt10ud0e0 */

Search [b05dcc00]....
match /* To start: b05dcc00ud0c0 */

Search [mny]....
match /* To start: b05mny00ud0b5 */
match /* To start: b05mny00ud0d3 */
match /* To start: b05mny00ud0m7 */

Search [b05can03*n0b5]....
match /* To start: b05can03un0b5 */

Search [b05mdd04*n9c9]....
match /* To start: b05mdd04un9c9 */