#$html =~ s{<#include file="([^"]+)"}{&add_template($1)}gei;
# remove <  ^ here    
$html =~ s{#include file="([^"]+)"}{&add_template($1)}gei;