grizzley I couldn't agree more...

Corion fixes the original Unmatched ( in regex; marked by <-- HERE in m/fg-&amp;amp;&amp;+(and( <-- HERE we- error,
but beyond that i am struggling...

#!/usr/bin/perl

use warnings;
use strict;

while(my $line=<DATA>){

my $name_pre=$line;
my$name=$line;
print "1: name $name * name_pre $name_pre \n";
$name=~ s/&amp;amp;/-/g;
print "2: name $name * name_pre $name_pre \n";
$name=~ s/&amp;/-/g;
print "3: name $name * name_pre $name_pre \n";

$name =~ s/-$//;
print "4: name $name * name_pre $name_pre \n";

$name_pre=~ s/\Q$name_pre\E/\Q$name\E/g;
print "5: name $name * name_pre $name_pre \n";

$name_pre =~ s/\\//g;
print "6: name $name * name_pre $name_pre \n";

}
__DATA__
fg-&amp;amp;&amp;+(and(we-
[download]

Prints:

1: name fg-&&+(and(we-
 * name_pre fg-&&+(and(we-
 
2: name fg--&+(and(we-
 * name_pre fg-&&+(and(we-
 
3: name fg---+(and(we-
 * name_pre fg-&&+(and(we-
 
4: name fg---+(and(we
 * name_pre fg-&&+(and(we-
 
5: name fg---+(and(we
 * name_pre fg\-\-\-\+\(and\(we\
 
6: name fg---+(and(we
 * name_pre fg---+(and(we
[download]