A URL Decoder Gear 

package SprogEx::Gear::URLDecode;

=begin sprog-gear-metadata

  title: URL Decode
  type_in: P
  type_out: P
  no_properties: 1

=end sprog-gear-metadata

=cut

use base qw(Sprog::Gear Sprog::Mixin::InputByLine);

use CGI;

sub line {
  my($self, $text) = @_;
  $self->msg_out( data => CGI::unescape($text) );
}

1;