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

##</code><code>##

    open (FILE, "<" . $quotedfullelementpath) or die "Can't open file $quotedfullelementpath:$!\n";
    binmode(FILE);
    while (<FILE>)
    {

##</code><code>##

    open (FILE, "<:raw" . $quotedfullelementpath) or die "Can't open file $quotedfullelementpath:$!\n";
    while (<FILE>)
    {

##</code><code>##

      if (/\x0d/)