#!/usr/bin/perl

while (<>) {
    s/%%% include\("([^"]+)"\)/`cat "${1}"`/gie;
print;
}