What code have you already written?

Personally, I would extract the "special" symbols and their surrounding whitespace from the first sentence and then replace the elements accordingly in the second sentence:

my %symbols = (
    '/' =>  [],
    '*' =>  [],
    '-' =>  [],
);

$_= "This is a perl script/program.";

push @{ $symbols{ '/' }}, m!(\s*[/]\s*)!;
push @{ $symbols{ '*' }}, m!(\s*[*]\s*)!;
push @{ $symbols{ '-' }}, m!(\s*[-]\s*)!;

my $target= "C'est un perl script / programme";
$target =~ s!\s*([/*-])\s*!shift $symbols{ $1 }!ge;
[download]

Hi,

Thanks for your reply. I haven't written any code because I don't know how to start. I would like to do it in perl but other script languages are welcome.

I have tried your code and it works when the sentence contains one symbol. In case of more symbols, they are omitted from the second sentence.

Thanks

I can't replicate the problem. When I run the program with the two sentences:

$_= "This is a perl script/program-  code.";
my $target= "C'est un perl script / programme  -  codele";
[download]

I get as the result in $target:

C'est un perl script/programme-  codele
[download]

... which is what I expect. If you tell us the exact input data and the exact output data you get, maybe we can work on finding the cause.