Вставка в оракул xmltype из сценария Perl

Question

Я пытаюсь вставить все xml-файлы, которые присутствуют в каталоге, в таблицу оракулов, в которой есть столбец xmltype хранилища binaryxml. Все мои xml-файлы соответствуют стандарту w3c, но у меня возникают проблемы при вставке xml-файлов из-за ссылок на сущности и одинарных кавычек для атрибутов. Ниже приведена часть скрипта, которую я использую для вставки.

foreach my $file(@listOfFiles)
{
    unless($file eq '.' or $file eq '..')
    {

        {
             local $/=undef;
             open (FILE , "<" , "$directory/$file" );
             $xml=<FILE>;
             close (FILE);
             $xmltype_string = "XMLTYPE('$xml')";
        }
        $SQL="insert into sampleTable values (1, 'sql' )";
        $sth =$dbh-> prepare($SQL);
        $sth-> execute();   
    }

}