sub URLDekod {
    my $URLkodad = $_[0];
       $URLkodad =~ tr/+/ /;
       $URLkodad =~ s/%([a-fA-F0-9]{2,2})/chr(hex($1))/eg;
       return $URLkodad;
      }