% perl
$a = 'this is a test';
$a =~ s/[^i[:space:]]/-/g;
print $a,$/;

##</code><code>##

--i- i- - ----