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

##</code><code>##

if($searcharea =~ m/$regex/gm)