decode

   1 #!/usr/bin/perl
   2 $ARGV[0] =~ s/\+([^+]*)\+/unparse($1)/eg;
   3 print $ARGV[0];
   4 sub unparse {
   5     $_ = $_[0];
   6     return "/" unless $_;
   7     return "_" if $_ eq "-";
   8     return uc($_) if /^[a-z]$/;
   9     s/^x//;
  10     return chr hex $_;
  11 }