opendir THEDIR, "$ipath";
$xml = $ipath.(grep (/$str/, readdir THEDIR))[0];
closedir THEDIR;