local $/;
local $_ = <>;

%$hashref = /\s*<\s*TEMPLATE\s+NAME="(.*?)"\s*>(.*?)\s*<\s*\/\s*TEMPLATE\s*>/sig;