$_ = join q,,,map chr, 33 .. 126;
print "$_\n";
print substr($_, index($_,'01'),64),"\n";
__END__