my $evil = join '', map chr, 0..255;