@test = split (//,$something);
foreach (@test) {print "$_\n";}


##</code><code>##


$something =~ /\0//g;