my $depth = shift || 2;
my $string = shift || "helloworldhellohellohihellohiworld";
$string =~ s/[\000-\037\0177]/ /g; # strip non-printable