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

open (TEMP, "<$tempfil") or die "Kan inte \xF6ppna filen $kontorfil"; 
open (NYF, "+>$nyfil") or die "Kan inte \xF6ppna filen $nyfil";
flock (NYF,2) or die $!;
while (<TEMP>) {
print NYF URLDekod($_);
close TEMP;
close NYF;
}