for (split //, $template) {
    print ord == 0 ? '.' : 'X';
}
print "\n";