#!/usr/bin/perl

use warnings;
use strict;

my $string = "11875%20Weihnacht%20Tag.shtml";

$string =~ s%\%20%-%g;

print $string;