open (FILE, "<" . $quotedfullelementpath) or die "Can't open file $quotedfullelementpath:$!\n";
    while (<FILE>)
    {
      binmode(FILE);
      my $line1 = unpack("H*", $_);
      if ($line1 =~ /0d/)