note
jwkrahn
<blockquote><i><c>
for (split //, $template) {
print ord == 0 ? '.' : 'X';
}
print "\n";
</c></i></blockquote>
<p>
Another way to do that:
</p>
<c>
$template =~ tr/\0/X/c;
$template =~ tr/\0/./;
print "$template\n";
</c>
<p>
But this looks like it produces the output the OP wants:
</p>
<c>
print "position $-[0] is not conserved\n" while $template =~ /[^\0]/g;
</c>
962149
962162