Select Code to Download

my $string = 'fred=abcdef&wilbur=123456&fred=hijk';

sub obscure {
   my ($self, $s) = @_;
...

   return $s;
}