Ticket #81: decode

File decode, 248 bytes (added by phurst, 15 years ago)
Line 
1#!/usr/bin/perl
2$ARGV[0] =~ s/\+([^+]*)\+/unparse($1)/eg;
3print $ARGV[0];
4sub unparse {
5    $_ = $_[0];
6    return "/" unless $_;
7    return "_" if $_ eq "-";
8    return uc($_) if /^[a-z]$/;
9    s/^x//;
10    return chr hex $_;
11}
12   
13
14#tabbott
15