my $r = "";
my $rs = q( -/:-@[-`{-});
$rs =~ s/(.)-(.)/r($1, $2)/ge;
$rs =~ s/([-\/\\])/\\$1/g;

print "$rs\n";

sub r{
  my ($f, $t) = @_;

  my $s = "";
  map { $s .= chr($_) } ord($f)..ord($t);

  return $s;
}