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