while($file =~ m/<DELIMITER>(.*?)<\/DELIMITER>/gs)