Could you do a rot-13 on it? Or how about just translating links like "http://www.somelink.com" to "http (colon) (slash) (slash) www (dot) somelink (dot) com"? That would be easy enough to create with either a hash or a substitution operator. ...for example:

my $url = 'http://www.somelink.com';
my %translation = (
    '.' => ' (dot) '  ,
    '/' => ' (slash) ',
    ':' => ' (colon) ',
);
foreach my $key ( keys %translation ) {
    $url =~ s/\Q$key\E/$translation{$key}/g;
}
print $url, "\n";
[download]

I'm not sure if that's what you're after, but it might give you some ideas to work with. It would be easy enough to reverse this process too.