if($file =~/<order>(.*)<\/order>/s){